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Introduction 

In many ways a computer is an ideal games opponent. 

Unable to gloat in victory, gracious in defeat, it is tireless, patient 
and infinitely available. Although it cannot supply the human by¬ 
play which can be as much a part of the fun as the actual game itself 
when played against other people, the computer seems the 
perfect companion with which to while away the hours. 

No matter why you think you bought your Spectrum, I bet you 
spend at least some of your computer time playing games, and 
that's where this book comes in. You'll find a wide variety of games 
here, from board games like CHESS and CHECKERS, arcade 
action in programs such as JOGGER and LEVEL FIVE, to our major 
adventure program, REVENGE OF CASTLE DREAD. We've aimed 
for worthwhile games of lasting interest, as well as ones which will 
give you programming and game hints and ideas to apply to your 
own computer work. 

To help you get the most out of this book, I've written detailed 
introductions to the games. In most cases the introduction takes 
you through the program line by line, explaining the tricks the 
programmers have used and suggesting how these can be applied 
in your own programs and games. Several programs also contain 
suggestions on how you can tailor a program to your own 
specifications, improving and developing it as you wish. 

The majority of the programs in this book were written by Tim 
Rogers, Paul Toland and myself. Tim and Paul are both students 
(Tim in London, and Paul in Belfast) and they deserve to be 
congratulated on the quality and originality of their work which is 
reflected in the programs I have selected for this book. A full list of 
program authors is on page 185. 

It is time now to start punching code into your Spectrum so you 
can enjoy these games which truly deserve the adjective 
'dynamic'. 


Tim Hartnell, 
London, March 1983 
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Arcade Games 

level five 

No need for panic, fear or tension, because here comes LEVEL 
FIVE, a fast-moving adaptation of an arcade favourite. 

The playing area is made up of five levels connected by a set of 
ladders. Four monsters start at the lowest level and make their way 
to the top. Your task is to contain them in the prison underneath the 
bottom level. The main problem is that, since these particular 
monsters always go upwards, the only way to get them to the 
bottom is to dig holes in the floors for the monsters to fall through. 
You can dig a hole by pressing the "0", as long as there is no other 
hole on the screen. Each hole will only last for a short period before 
winking out of existence. 

You control your motion using the following keys: "5" (left), "8" 
(right), "6" (up), and "7" (down). The game ends when you have 
contained all the monsters. At this point, you'll be told how long it 
took you. The game ends prematurely if you are jumped on by a 
monster. As is often the case with Spectrum programs, the quality 
of the graphics is only hinted at by the sample printout. You'll find 
this program very fast and addictive. Program author Paul Toland's 
best score is 60 jiffies. You are challenged to beat that. 

Line 1 shows you which graphics are on which keys, with the 
bricks on the "A", sections of ladder on "B", you (the running 
person) on "C" and the handsome monsters on "E". Line 25 sends 
action to the subroutine at line 9100 after the INK has been set at 
white and the PAPER and BORDER to blue. In this subroutine the 
instructions are printed out on the screen. Line 9130 waits until you 
press a key, then clears the screen. The balance of the instructions 
then appear, along with a "Good luck" message, and the RETURN 
in line 9160 sends action back to 30, where the subroutine from 
line 9000 is called. 9000 starts by RESTOREing the DATA pointer to 
itself (which has the effect of restoring it to the next item of DATA 
after the number which follows the word RESTORE). This ensures 
that when the I and J loops are run (lines 9001 to 9040) the 
numbers read to be POKEd into the graphics are from lines 9050, 
9060, 9070, 9080 and 9090 and not from line 1070. 

Once the graphics have been defined, the program goes (via the 
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second statement in line 30) to the subroutine from line 700 which 
prints up the five brick pathways, one for each level. Line 910 
RESTORES to itself, in the same way as the RESTORE 9000 we 
looked at a moment ago, moving the DATA pointer to the first item 
of DATA which follows the RESTORE. In this case it is line 1030 
which contains the information used in the J and I loops (1000 to 
1050) to put the ladders in place. Line 1055 blanks out the bottom 
line of the screen, and the program returns to line 40, where the 
real fun begins. 

Y and X, the co-ordinates of the figure (you), are set at 14 and 3 
respectively in line 40. M, which counts the monsters, is set to 4 in 
line 50, and an array is created in the second part of this line to hold 
the monsters before they are placed at the start with the loop in line 
60. The H array (to hold your hole) is DIMensioned in line 70, and 
both INK and PAPER set to 8 in line 80, just before you are finally 
printed on the screen in line 90. 

The variable TIME (remember Paul's best score of 60) is set to 
zero in line 100, and subsequently incremented in 395, where its 
current value is printed on the screen. The title of the program is 
placed at the top of the screen (110), leaving a slot for TIME to 
appear, and the flag FREE is set to zero in line 190. 

The I loop checks the position, and controls the action, of the 
monsters. It runs from line 200 to 390 and holds within itself all the 
important actions of the program. These include keeping track of 
the monsters' vertical positions (line 205), reprinting them (210 and 
220), checking their immediate environment (lines 225 and 230) 
and either going to line 430 if they have landed on top of you or to 
280 if they are climbing. The monster's horizontal coordinate is 
incremented in line 240, and the following line reverses the 
monster's direction of travel if it has reached either end of a 
walkway. 'Monster away!' is the cry if it steps over a hole (line 270) 
before it is reprinted in its new position by line 280. 

A hole lasts for 40 cycles of the program and line 295 fills in a hole 
after this time. Line 300 reads the keyboard, jumping over most of 
the next routine if there are no keys pressed when it comes to 300. 

If it reads a zero, it knows you want to dig a hole. If H(3) equals zero, 
the computer knows there are no other holes on the screen, so 
sets the coordinates of the hole at the same position across the 
screen as you are, and one line further down, before printing a hole 
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in that position, and then jumping to line 390. 

The computer knows that if you are pressing zero in line 315 you 
will not be pressing "5", "6", "7", or "8" in the next few lines, so it 
keeps the program running at maximum speed by jumping overthe 
lines it knows it will not need to process this time around. Line 317 
checks to see if you are pressing any keys other than those lying 
between "4" and "9" and if you are not, jumps to 390. The next line 
puts you in position, and line 325 POKEs the ATTRibute address of 
your position with 15, to make you vanish from your present 
position, prior to being reprinted in line 390 (ATTRibutes are stored 
after the display file, from address 22528). 

Line 327 checks to see whether you are on a walkway, and on 
discovering you are not, moves to line 350 to see if you wish to 
move up or down on a ladder. N, the value used for POKEing the 
ATTRibute of your position, is set to your current ATTRibute in line 
370, before you are printed in line 380. Line 330 is reached if you 
are on a walkway, where the keyboard moves you in accord with 
your wishes expressed by pressing "5" or "8", modified by line 
340 which stops you trying to fall off the edge of the world at either 
end. Line 390 starts the whole cycle again. 

After you've been through the I loop four times, the variable 
FREE is checked to see if all monsters have been captured, and if 
they have not, returns to 190 to keep the game underway. Line 
410 signals that you've got them all, and 430 that they've grabbed 
you. You are offered a new game in line 500 and any input except 
"N" or "n" will will get you that new game. 


1 REM UDG n=e %=C j$=E 

2 REM 

1© REM LEUEL 5 P.TOLAND. 

20 INK 7: PAPER 1: BORDER 1; C 

L5 

25 GO SUB 91©@ 

3© GO SUB 9000: GO SUB 70© 

4-0 LET X = 14-: LET Y=3: LET C = 1 
50 LET M = 4-; DIM 

S© FOR 1 = 1 TO M: LET MII,D=19 
: LET M { I.. 2J> =1*3 : LET M (I3) =1-1 
NT CRND+ .5) #2: PRINT RT 19.. 1*3;" 
46" : NEXT I 

70 DIM H (3 ): LET H(1)=0: LET H 
(2) =0 : LET H(3)=© 

S© INK 8: PAPER 8 
90 PRINT RT Y, X; INK 5; 
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20® LET N=15: LET 
21® PRINT RT 0..®; 
UEL 5 TIME = 


TXME=0 

INVERSE lj n LE 
LEUEL 5" 


THEN GO TO 295 


LET FREE =® 

FOR 1=1 TO 4 
IF =21 

LET FREE = 1 
LET D=M(I,2>: LET A=M(I,2) 
PRINT RT D j R; OUER l; 14 *" 

XF RTTR CD-I,Rj=13 THEN GO 


29© 

20® 

2©5 
30? 

21 © 

22® 

225 

TO *3® 

230 IF RTTR CD-I,ft) =14- THEN LET 
D=D-1: GO TO 2S0 
240 LET A=A+M(I,3) 

|S0 IF QR A =31 THEN LET M(I 

, 3.' = -H (1,3) 

Jf= ATTR (D , A) =13 THEN GO TO 

* w© 

i 7 JLJ F 0115 = 15 ™EN LET 

P;=£ + £-‘ EEEP *1^30: IF D >21 THEN 
LET D=21 

£80 PRINT RT D,R; OUER 2; 

290 LET M(I,1)4d: LET M(I.2) =fl 
£95 IF H (3)>0 THEN LET H(3)=H13 
> IF H 13) =40 THEN PRINT INK 2 

7;fiT HC1) ,H(2); "IT": LET 

H (3) =0 

300 LET I*=INKEY* 

310 IF 1$='*” THEN GO TO 390 
__315 IF I$ = "0“ AND H (3) =0 RND RT 
JH lY +i jX) =58 THEN LET H(2)=Y + 1: 
LET Hi2)=X; LET H(3)=1: PRINT P 

Rn E To a 6t90 NK 7 ' RT H (1) ' H (3 >' " 

"?0^3Ib" I * < " 8 " ° R Xi> " 3 " THEN GO 

320 1 ”PRINT RT Y,X; OUER l;"*" 

325 POKE 22528+Y*32+X,N 
327 IF (Y +23 S4- < > INT ( CY +1) ,4) T 
HEN GO TO 350 

330 LET X=X + CI$f = "8") — ( IS = "5‘*) 
340 LET XaXt(X<0) —(X >32) 

iF?hS l£f'7.: y *T nTTR ,Y - 1 'X> = 

i 2 6 ?hS ff?"?:v 5 S D 

37© LET N=RTTR (Y,X> 

.080 PRINT RT Y,X; OUER 

'39© NEXT I 

,???TiS + * 

4©0 IF FREE THEN GO 
42© PRINT OUER 1;RT 
H ?yf TERS CAPTURED": 

420 GO TO 440 


RTTR (Y+2,Xi = 


2; INK 5 


: PRINT RT 0 

TO 190 
9,5;"ALL 
BEEP 3,3® 
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430 PRINT RT Y,X; "j»"; OUER 1; RT 
9,5; "THE MONSTERS GOT YOU": 
BEEP 3,-2© 

440 PRINT RT 13,10;"AFTER R TIM 
E OF ";TIME 

300 INPUT -'RWOTHER GAME ?" , A $ 
51© IF A* < >"N" RND A* < >"n" THEN 

RUN 

599 STOP 


TO® FOR I 
SO© PRINT 


2 TO 5 

INK^ JI** 


mmmm 

OS® NEXT I 
92© RESTORE 91© 

1©0® FOR 0=1 TO S 

1©1® RERD X\,Y,L 

2©2© FDR I=® TO L 

±©3© PRINT INK 6; RT Y +1X; 

1®4® NEXT I 
1050 NEXT U 

2©55 PRINT RT 21,0; PAPER © ^ , 
105® RETURN 

1©7® DATA 1,3,8 4 ,25,,3,4.,S,?,8,20, 
7 / 4,30,ll,8 J ,2,15,.4.,17,3,4.,20,15, 


3999 STOP 

90®0 RESTORE 9®©® 

9001 FDR I=© TO 4. 

9 © 2 ® FOR U=® TO 7 

90S® RERD N; POKE USR 4, R”+I*8+J, 

N 

90S© NEXT J 
904-0 NEXT I 
9045 RETURN 


905® DRTR 207,237,,207 

5; ias 

90S© DATA 195,255,195 
5,195 ,-195 


9©7© 

f S8 

90S© 

9©90 

, 255, 

91©0 

5 

911© 

sters 


DRTR 56,144,124, 

DRTR 28,9,62,40, 
DRTR 1©2,6©,126. 
153 

PRINT INUERSE 1; 
LEUEL 5 

PRINT ,,"There a 
moving around 
a t temp ting to get 
There are 5 levels 


,0,0,126,12 

,195,195,25 

20,48,47,34 

12,116,68,6 

153,187,255 

” LEUEL 

li 

re Four aon 
the screen 
to the top 
conne c ted 


by ladders and your tasR is 

to imprison the monsters in X 

he dungeon below the bottom 

level. Your only means of 

getting the monsters down the 
screen is to dig a hole in one 
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- 0 , f ,-^*?® - i;® Y® ls ^ich the monster 
~ ‘i-u ,1 ? . l i through. However 

' e fV'' will vanish after 

<,nd only i hole may e 

X i t c?t 3HM t i B)8 « u 

ld S Sn P ?5 N T You win die if jump 
®d on by a monster and your as 
i° .have all 4- monsters impr 
1 n fastest possi^l 

® Ji me : ; FLASH i; "Press in 

to continue. 

313© PAUSE ©: CLS 

vs?.E5 ot ‘"tl'ih&f {S%t?*i 

sod it! j ’' °° D LUCK ...you'U n 

315© PAUSE 200: CLS 
ylt>0 RETURN 


msm 



CIRCUS 

CIRCUS is an arcade game somewhat like 'Breakout', but involving 
a far more interesting scenario and a greater challenge to the 
player. You have to try and burst the balloons at the top of the 
screen by bouncing two clowns off the see-saw at the bottom of 
the screen. You control the see-saw with the "5" and "8" keys. 
Pressing the "1" key will cause the clown on the see-saw to 
change ends. The falling clown must land on his part of the see¬ 
saw to spring the other one into the air. Ideally, he should land on 
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the extreme edge of the plank. If he lands near the middle, the 
other clown will not rise high enough to hit any of the balloons. 

The game is so difficult to master that we modified the original 
idea to include additional clowns, just to give you a chance to burst 
a reasonable number of balloons. 

When you run the program, you'll see the instructions displayed 
as follows: 


CIRCUS: INSTRUCTIONS. 

The circus has come to town, and the star attraction is the 
clowns' see-saw act. 

Two clowns bounce from a see-saw to burst balloons high 
in the air. The falling clown must not hit the ground or the 
wrong side of the plank. If he lands close to the middle then 
the other clown will not rise high enough to hit any balloons. 
The circus only has 6 clowns, so be careful. 

You control the see-saw with keys 5 and 8. You can make 
the clown on the see-saw change ends by pressing "1". 
Press "N" to stop, or any other key to start 


And here's what the program looks like when it is under way: 


Circus score; 24. Cir cu: 

{-^=**9*9*<*** ?*?*?****?***<?; 

H********** * * * * * ***** 

^<r*<f<*** 9 * * * * * *** 
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The listing shows the characters used for the user-defined 
graphics in line 5, with "A" for the see-saw's pivot, "B" for the 
clown and "C" for the balloon. After the random number generator 
is seeded in line 20, the program goes to line 80 where OVER is set 
to 1, the INK to black, PAPER to white and the BORDER to red 
before the screen is cleared to establish the PAPER colour. 

From here the program moves to the subroutine from line 900, 
where a further two subroutines (from 1100 and from 1020) are 
called. The first of these (from 1100) prints the title and instructions 
on the screen and the second (from 1020) defines the graphics. On 
returning from this subroutine, the frame around the screen is 
drawn (lines 902 to 905) and the balloons are put into place by the I 
loop from 910 to 930). You II see that the I loop also places the 
'clowns in reserve' on the left hand side of the screen. 

A number of variables are defined in the next two lines. SC holds 
the score of the number of balloons you've hit (which is 
incremented in line 180). SS is the horizontal position of the base of 
the see-saw which is used in line 50 to place the see-saw and the 
clown, and in the following line to draw the see-saw's 'plank'. Note 
that lines 40 and 60 are a subroutine which is called repeatedly 
during the running of the program. 

M counts the current 'clowns in play' and is incremented in line 
300 after being sent there by line 230. The BS array is used to print 
26 blank spaces in line 330 after each clown has had his day. OD 
and AN control the position of the clown. Changing these to their 
negatives (line 107) allows the clown to change ends of the see¬ 
saw. OD and AN are used in lines 50, 260 and 280. 

The variable CA is used to detect when AN should be changed 
(see lines 95 and 270) and HL is set in line 250 and used in 160 to 
determine when the Y coordinate of the current clown (the vertical 
displacement) should begin to be incremented in the direction 
opposite to the one in which it is currently moving (see 160 and 
140). X is the starting horizontal coordinate of the clown, used in 
line 130 and incremented in line 140 by A, which is changed in line 
280 to reverse the horizontal movement of the clown. Y (set in line 
950) is the starting vertical coordinate of the clown. This value 
starts at anywhere between 5 and 8. 

Line 100 reads the keyboard for "5" and "8", changing the 
vertical coordinate of the see-saw's base. This value is checked in 
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the following line (105) to ensure you are not attempting to move 
the see-saw too far to the left or right. 

5 REM U.D.G. A =R j{-=B 9=C 
7 REM 

10 REM CIRCUS. P.TOLRND. 

15 REM - 

20 RRNDOMIZE 
4.0 GO TO S0 

5© PRINT RT 21,SS;“a”;RT 21,35 
+od; 

60 PLOT SS*8-16,7ftanal): DRRU 
38, 7 *-an; RETURN 
80 OUER 1: INK ©: PAPER 7: BOR 
DER 2: CLS 

85 GO SUB 900: GO SUB 50 
90 GO SUB S0 

95 IF ca THEN LET an=-an: LET 
ca =0 

100 LET SS5SS+ (INKEY$ = * , 8 ,, J - ( INK 

105 LET SS=SS+ISS=4J -tSS=27) 

107 IF INKEY‘$ = " 1 ** THEN LET an = - 

an 

110 GO SUB 5© 

13© PRINT RT 

14-0 LET X=X+a: LET M=y+d 
150 IF X =3 OR x =28 THEN LET a = - 
3. BEEP .01,1 
160 IF y <h l THEN LET d =-d 
165 LET no =ffTTR fy,x) 

167 PRINT RT y,x;"£" 

170 IF no=56 THEN GO TO 210 
180 LET SC=SC+61-nO: BEEP .01,1 

0 

185 PRINT RT y,x; OUER 0;”jt";RT 

0,20;sc 

190 LET d=-d 

195 IF SC =260 THEN GO TO 34-0 
200 GO TO 9© 

210 IF y<21 THEN GO TO 90 
220 LET diS=X-SS: BEEP .01,5 
230 IF dis <—2 OR dis>2 OR SGN d 
iso -an THEN GO TO 310 
250 LET hl=11—RBS diS*5 
260 LET X=SS+Od 

27© LET Od=diS: LET ca=1 

280 LET a=SGN od : LET d =-1 
29© GO TO 90 
310 LET m =m +1 

320 BEEP .2,-10: BEEP .7,-20 
330 IF THEN PRINT RT 21,3; 

OUER 0;b$: GO SUB 950: GO SUB 5© 

: GO TO 90 
335 BEEP 1,—4.0: RUN 
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hrde ??f"T F SI L s 4j6 R E” B5H 1; " vou 

34.5 BEEP 1 , 20: BEEP 2,30 

3g® £ft!r! SE 1: Pflu SE 1©0 

360 RUN 

900 GO SUB 1100: GO SUB 102© 

§®2 EJ-2I 23,0: DRflU 0,167 
PLOT 232,0: DRRU 0,167 
910 FOR i =1 TO 4- 

920 PRINT RT i ,3; INK i ; "•••••» 

925 PRINT RT 15 + i Tl; "■*••• 

930 NEXT i *** * 

940 PRINT RT 0 , 0 ;"Circus 
score.- 0 Circus " 

945 LET S C =0 : LET SS=16- LET m- 
0: DIM b$f26> 

950 LET Od=—2: LET ca=0: LET hi 

f 0 , ; Jp E T =3 , : _ LE T 9 =5 +1 NT (RND#4) 

: LET a =1: LET d =1: LET an =-l 
1|S ?I lS+»,1; OUER 0;” ” 

957 FOR i =15+l» TO M STEP -1 
960 PRINT RT i,1; 

970 BEEP •05,21-i 
980 PRINT RT i , 1; 

990 NEXT i ' ' X 

1000 PRINT RT y , X ; 

1010 RETURN 1 

102© RESTORE 1070 
1030 FOR i=0 TO 23 

iisi n!5t ?•' POKE USR 
1060 RETURN 

2-®70 DRTR 0,0, 0,0,16,56,124.,254 
56,56, 16,254,15,4.0,40, 

1090 DRTR 0,60,110,126,62.28 S A 
1100 PRINT “CIRCUS: INSTRUCTION 

*" The circus has CO 
® e *9 town, and the star attract 
ion is the clowns' see—saw act 
- _ _ „ , , Two clowns bounce 

from a see-saw to burst balloo 
in the air." 

o«? N T-l’*^ The fa ttir»S clown 
must not hxtthe ground or the wr 
ong side of the plank, if he lan 
«fu£ los ? to tl ? e “addle then the 
other clown will not rise high e 
nough to hitany balloons.The cir 

rerui n " tf has SlX clowns so bc ca 
1120 print '“ You control the 

!n e »t?2 ?il h *® ys S and ®* YoG C 

an make the clown on the see-sa 
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w change endsbu pressing '1'. Pr 
ess ' N to stop, any other key 
to start" 

11.30 IF INKEY$=“” THEN GO TO 113 
0 

1140 IF INKEY*=.“ft” DR INKEY*= ,, N" 
THEN STOP 
1150 CLS 

1160 return 
JOGGER 

You have to help five tired joggers across a busy six-lane highway. 
One by one, the joggers place their lives in your hands, as you guide 
them through the traffic using the "5" (left), "8" (right), "6" (up) 
and "7" (down) keys. One mistake, and you're finished. 

Not only are you working against the oncoming traffic, you're 
also working against the clock. Each time you manage to get all five 
across, you'll be told how long it took (measured in that well-known 
time unit 'heartbeats') and after a short break to catch your breath, 
another five joggers will line up beside the road, to await your 
assistance. 

As you can see from the two printouts there are always five 
joggers on the screen, waiting patiently at the bottom left hand 
corner, actually on the highway, or up at the top near the right hand 
corner. You'll be told how many joggers are left to assist (just in 
case you don't know how to count), as well as how many have 
made the journey to the top of the screen. The time, shbwn in the 
second line underneath "Joggers safe" is updated each time you 
manage to get another jogger through the traffic. 

Once you've mastered this game, you can convert the program 
to the second version. In this variation the jogger does not stop 
moving, so a great deal of concentration is required to move him or 
her through the traffic. I suggest you become totally familiar with 
the game in its original form, before you make the changes to give 
you the perpetual motion jogger. 

The program begins in line 20 with the call to the subroutine from 
line 410. Here, the INK is set to blue, the PAPER to white, the 
BORDER to red and the screen is cleared. The A loop from lines 
440 to 500 defines the six graphics. The first one (graphic A, or 
character 144) is the jogger, the others are the cars. You'll see in 
this loop (line 450) that ES is set equal to character 143 plus the 
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value of A. The inner loop, B, READs the DATA from lines 560 to 
610, and then POKEs this into position in line 480. 

Line 510 sets the variable TIME (which stands for the time 
elapsed per round of five joggers, measured in 'heartbeats') and 
sets the variable BESTTIME to a very large number. (You can see 
how big this number 9E7 is by entering, in the direct mode, PRINT 
9E7). Your BESTTIME will always be less than this, even the first 
time you manage to get the joggers across, so your altering of the 
value of BESTTIME will start the first time you succeed in 
completing one round of the game. 

The strings AS, BS, CS, and DS—which hold the cars_are 

assigned in lines 520 to 550. You can put as many, or as few cars as 
you like in these strings, so long as each of them is 32 characters 
long. In fact, once you get confident at playing the first version of 
JOGGER, you can make it more difficult before you enter the 
second version just by increasing the number of cars per string. 
However, the cars cannot be placed within the strings completely 
at random. The very realistic vehicles were designed to be facing 
either right or left (as well as one which looks equally good 
travelling in either direction). The top three lanes of traffic move to 
the right, and the bottom three to the left. You can use graphic "B" 
in any of the strings, keeping "C" for AS and BS, and reserving 
graphics "D", "E" and "F" for strings CS and DS. 

Once the variables have been initialized and the graphics 
defined, the RETURN at line 555 sends the program back to the J 
loop starting at line 30. This loop controls the main elements of the 
program, and as you can see, you go through it five times, once for 
each jogger. Line 40 prints up your "Joggers safe" tally (always 
one less than the current value of J in the loop) and the elapsed 
time so far. Line 50 prints the "Joggers left" tally, which is the 
difference between the current value of J and five (so when J 
equals one, the Joggers left" is four, as one is in transit across the 
road). 

The small loop from lines 60 to 90 prints out a little jogger figure 
for each jogger which has made it across the road. Line 100 blanks 
out any remaining joggers at the bottom of the road, then the loop 
from 110 to 130 prints up a jogger for each one still waiting. The 
variable JA is the position of the current jogger in transit across the 
screen, and JD is the position down the screen. The jogger starts 
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his or her marathon run at the position 16,19 which is about centre 
of the screen, near the bottom, below the first lane of cars. Line 
150 prints a blank where the jogger will be printed in a moment, so 
when the jogger is moving, this line blanks out the previous 
position. Lines 160 and 170 read the keyboard, moving the jogger 
in accord with your wishes, before the jogger is printed in line 180 

The long line 190 prints all the lanes of cars. The PRINT ATs are 
chained in this way, as it makes for maximum running speed. Lines 
200 to 230 compare the current position of the jogger with the 
content of the string at that position and if a jogger and a car have 
been found to coincide, then attention moves to the routine from 
line 350, where the jogger smash routine is invoked: Lines 250 to 
280 control the movement of the cars, using Sinclair BASIC string 
slicing to move elements of the strings along. 

The variable TIME is incremented in line 290. Line 300 checks 
the value of JD, and if it is found to be two, the computer knows 
another jogger has made it across the Rubicon. A jolly series of 
rising tones is heard before the NEXT J at the end of line 300 sends 
action back to line 40 for the next little red runner to brave the cars. 

If the jogger has not made it to the end (that is, JD is not equal to 
two) the computer will bypass the rest of line 300 and come to 310. 
If J is less than six, the computer sends action back to line 150, 
where the jogger is blanked out, prior to being reprinted by line 180. 
If all the joggers have made the journey safely, line 320 prints up 
"That round:" and the time it took you, puts a "5" at the end of the 
"Joggers safe:" line and prints on the screen "YOU DID IT!" Line 
330 tells you how long it took, and then line 340 sends the program 
to line 620. 

Line 620 compares the time of the round just completed with the 
BESTTIME, altering BESTTIME to TIME if TIME is smaller. If 
BESTTIME is not 10000 (which can occur the first time you attempt 
the game and fail to complete a round, as will be explained shortly) 
the best time is printed on the screen, so you can see how well or 
otherwise you did. A pair of opposing trills round out the end of the 
game (line 620), the variable TIME is reset to zero, and the program 
goes to line 30 to start the next round. 

If you have not managed to get all the joggers across the road, 
the routine from line 350 is triggered (the IF/THEN lines from 200 to 
230 send you here, you may recall). The loop (350 to 370) prints a 
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flashing jogger on the spot where he or she was hit by a speeding 
car, some BEEPs sound, and you are told (although by now you've 
probably realised this) that "YOU HAVE BEEN HIT", followed by 
your 'jogger tally' (line 390). The variable TIME Is set to 10000 so 
that it will not be printed, and will not alter your BESTTIME value. If 
TIME was not artificially increased at this point, you could get a 
brilliant BESTTIME simply by running into the first row of cars. 

Once you've mastered this game, try it with more cars or invent 
your own vehicles. A few horses, a penny-farthing bicycle or two 
and a rickshaw should keep you on your toes. When even this 
custom-made version of JOGGER palls, alter your listing so that it 
resembles the second listing. In this version the jogger starts the 
round moving, and keeps moving. You'll find this extremely 
difficult to play, and you may well want to make it easier the first 
few times by reducing the number of cars, or adding: 

195 BEEP .05,RND*50 

to slow things to a more manageable speed. Good luck, Jogger, 
and may you cross The Road safely. 

Here's what the program looks like when under way: 


Jogge rs safe: l £, 

Tiiae sc far: 67 

** A 0» A fe AfeA A 

A 9» A B» A 5* Afc A 

AA MW A St A St AMtA A 



Joggers Left: 3 
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And this is the listing for it: 

i© REM JOGGER 
2© GO SUE 4-1© 

3© FOR J=1 TO S 

4-© PRINT PT 1^2; "doggers safe. 
m "JJ- 1;RT 2,0; "Tiffle so far: ";TI 

se^PRINT rt 20,2;"Joggers left 

6©"PRINT RT 1,24; 

70 FOR Z=1 TO J-l 

S© PRINT INK 3; "A"i : REM GRAPH 
* C 9© NEXT Z 

10© PRINT RT 20,24;" ";AT 2 

©..24-.; 

11© FOR Z = 1 TO 5—J 

12© PRINT INK 2;"A"J: REM GRAPH 

IC R 

13© NEXT Z 

14.0 LET JR = 16: LET JD=19 
15© PRINT RT JD,JR;" ** 

IS© LET JR=Jfi+CINKEY$="S"}-fINK 
EY $ = “ 5 " ) 

IT© LET JD=JD+(INKEY$="6")-(INK 
EY$ = ,, 7") 

IS© PRINT RT JP,Jfl; INK 2; **,V 
19© PRINT RT 3,0; INK 2;fl $;RT 9 
,0; INK ©; R$; AT 6,0; INK 4-;E$;fiT 
12,0, INK 3;C$;RT IS,©; INK 1;C 
$,RT 15,0; INK 2; D$ 

20© IF (JD =3 OR JD=9J RN£> A$(JB 
+ 1> <>“ " THEN GO TO 350 




24 Arcade Games 


ais IF JD=6 AND B$ CJA+1} < >" ** T 

HEN GO TO 35© 

220 IF (JD=12 OR 00=18} AND C$C 
JA + 1} :>" " THEN GO TO 350 

23© IF JD =15 AND O" " 

THEN GO TO 350 
250 LET A$=A$C31}+A$f TO 31} 

260 LET B$=B$(31}+B$( TO 31} 

270 LET C$=C$C2 TO }+C$(l} 

280 LET D$=D$(2 TO }+D$(l} 

290 LET TIME=TIME+1 
30© IF JD=2 THEN FOR Z =1 TO 20. 
BEEP .81,2: NEXT Z: NEXT J 
310 IF J<6 THEN GO TO 150 
32© PRINT INK 2;AT 2,0;"That TO 
und: "; TIME," AT 1^16;5;AT 1© 

3; FLASH 1; PAPER 6, BRIGHT 1; "V 
OU DID IT*" 

330 PRINT ' TAB 4-; "IT TOOK YOU 
";TIME;" HEARTBEATS" 

34-0 GO TO 620 
350 FOR Z=1 TO 2© 

36© PRINT AT JD,JA; FLASH 1; BR 
IGHT 1; INK 2;BEEP .00S,Z 
370 NEXT Z 

N 3 HIT" RINT fiT 10 ' S '" YOU HAVE bee 

390 PRINT AT 12,8;J-l;" JOGGERS 
MADE IT *’ 

4.©0 LET TIME =10000; GO TO 620 
4-10 INK 1: PAPER 7; BORDER 2: C 

LS 


4-4-0 FOR A = 1 TO 6 
4.50 LET E$=CHR$ (14-3+A} 
4-to0 FOR B =0 TO 7 
4-70 READ C 


4-8© POKE USR E$+B 
4.9© NEXT B 


C 


5©0 NEXT A 


51© LET TIME=©: LET BESTTIHE=9E 


52© LET A $ =" tfWw* aa 

SSG^LET B$=* * fe 

A 8» A fe OOtA" 




555 RETURN 

56© DATA 28.28.8,62,8,28.34,66 
57© DATA 0,60,36,231,255,102,0, 

0 


580 DATA 24.0.14-4-, 158,255,254-, 10 

2 . 0.0 

590 DATA 0,0,30,99,255,27,0,0 
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60© DATA 0.0.56,4-0,126,36,0,0 
610 DATA 0.0.30,51,255,34,0,0 
620 IF TIME {BESTTIME AND TIMEo 
10000 THEN LET BESTTIME=TIME 
63© IF BESTTIME<>9E7 THEN PRINT 
AT 4,2; FLASH 1;"BEST TIME SO f 
AR: **: BESTTIME „„„ 

64© FOR Z =50 TO 1 STEP -1: BEEP 
,©5 . Z: BEEP .©5,-Z: NEXT Z 
65© CLS 

660 LET TIME =0 
67© GO TO 30 


"; AT 


10 REM JOGGER - Uersion Two 
15 REM Jogger Keeps running 
20 GO SUB 410 
3© FOR J =1 TO 5 

4© print AT 1,2;"Joggers safe: 
J-l ;at 2,0;"Time so far: ;TI 

IE 50 PRINT AT 20,2;"Joggers teft 

: '• ; 5-U 

6© PRINT AT 1,24; 

7© FOR Z=1 TO J-l _ 

SO PRINT INK 2 ;: REM GRAPH 

IC 9 g NEXT Z 
10© PRINT AT 2©,24;" 

0,24; 

ill PRINT = INK 0 2?",V*; REM GRAPH 

1 i’30 NEXT Z 

140 LET JR=16: LET JD=19 
150 PRINT AT JD,JA; " , 

155 LET Z $ =INKEY $: IF Z$<”5" OR 
Z$>"3” THEN LET Z$=X$ 

16© LET JA=JA+ fZ$ = "S" AND JA<2i? 
) -(Z$ = "5" AND JA >3} 

17© LET JD=JD + (Z$ = “6" AND JD>1.» 
- ( Z $ = "7" AND J <21> 

1S0 PRINT $ flT $ JD,Jfi; INK 2 J 
190 PRINT AT 3,0; INK 2;A$;AT 9 
.0; INK 0;fi$;AT 6,0; INK 4; B$; AT 
12,0. INK 3;C$;AT IS,0; INK l;C 
$;At 15,0; INK 2;D$ 

20© IF ! JD-3 OR JD =9} AND A$(Jfi 
+ 1) <>" ** THEN GO TO 350 
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as© IF JD = 15 AND D$ fUA+li < >" " 
THEN GO TO 350 
35© LET fi$=fl$(31)+fl$J TO 313 
36© LET B$=B$(31J +B$ [ TO 313 
27B LET C$=C$f3 TO 3+C$113 
aS© LET D$=D$(3 TO 3+D$C13 
390 LET TIHE=TIME+I 
3©© IF JD=2 THEN FOR Z=1 TO 30: 
SEEP .01, Z. NEXT Z: NEXT U 
310 IF U<5 THEN GO TO 15© 

33© PRINT INK 3; AT 3,©; "That TO 
und: " TIME; ";RT 1,15;5;AT 10, 
S; FLASH 1; PRPER 6, BRIGHT 1;"V 
DU DID IT?" 

330 PRINT ' 'TAB 4-; "IT TOOK YOU 
";TIME;" HEARTBEATS" 

34-0 GO TO S3© 

350 FOR Z=1 TO 30 

3S0 PRINT RT UD,UR, FLASH 1; BR 
IGHT 1; INK 2;"A": BEEP .0©S,Z 
370 NEXT Z 

380 PRINT RT 10,8;"YOU HRUE BEE 
N HIT" 

39© PRINT RT 12,8;J-l;" JOGGERS 
HADE IT" 

4-00 LET T IME = 10008; GO TO 63© 
4-1© INK 1: PRPER 7; BORDER 3. Q 

*~4-a0 LET X$ = "S" 

4-4-© FOR R = 1 TO S 

4-5© LET E$=CHR$ (14-3+R3 

4-S© FOR B=0 TO 7 

4-7S READ C 

4-S© POKE USR E$+B,C 

4-3© NEXT B 

50© NEXT R 

510 LET TIME=0: LET BESTTIME«9E 
530 LET ft$ = " ASM AA MMfe 

530 fc LET B$=* Wfc A Ok 

A h A h AftA " 

54-0 LET C$ = "» *w>n 

550 LET D$ = "4V4V+»«MVA.A-A-A~n. « « 

+» « -a <+" 

555 RETURN 

560 DATA 38,a8,8,63,8,aS,34.,B6 
570 DRTR 0,60,36,331,355,102,0- 


580 DRTR 34-0,14-4-, 158,355,354-, 10 

2 , 0,0 
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59© DRTR 0,0,30,99,355,37,0,0 
500 DRTR 0,0,56,4-0,126,36,0,0 
SI© DRTR 0,0,30,51,355,34-,0,0 
530 IF TIMEfBESTTIME AND TIME f > 
10000 THEN LET BESTTIME=TIME 
630 IF BESTTIME<>9E7 THEN PRINT 
RT 4-. 2 ; FLASH 1; "BEST TIME SO F 
HR ; ";BESTTIME 

64-© FOR Z =50 TO 1 STEP -1: BEEP 
.05,Z: BEEP - 05, -Z: NEXT Z 
550 CLS 

660 LET TIME =0." LET Z$ = "S" 

67© GO TO 30 


DISABLE THAT MINE 

This game is very hard to master because it entails controlling two 
objects on the screen at the same time. Your task is to clear the 
screen of mines and the task is a doubly difficult one because 
disabling a mine is a two-stage operation. First you must deactivate 
the mine using the inverter. Passing the inverter over a live mine 
makes it safe, but passing the inverter over a safe mine reactivates 
it. You control the inverter with the "5" and "8" keys. 

As well as the inverter, you'll see the controller on the screen. 
Passing this over a mine made safe by the inverter removes that 
mine from the screen. You have to be very careful to make sure the 
controller does not hit a live mine. The controller is also controlled 
by the "5" and "8" keys, but with SHIFT depressed. 

There are 40 mines and a choice of five possible speeds, so this 
is not a game you will tire of quickly. As you can see from the 
sample printout, you'll have a very difficult time keeping everything 
under control. 

When you first run the program, line 30 sends action to the 
subroutine from line 600 where graphics "A", "B" and "C" are 
redefined. The "Z" in the last DATA statement, line 680, triggers 
the RETURN from the subroutine in line 600. On the return, the 
second routine call in line 30 directs the Spectrum to line 520, 
where the instructions are printed up: 

YOUR TASK IS TO CLEAR THE SCREEN OF MINES. THIS 
IS.A TWO-STAGE OPERATION. FIRST THE MINE MUST BE 
DEFUSED BY PASSING THE INVERTER (graphic "B") 

OVER IT. THIS IS CONTROLLED USING KEYS 5 TO 8. 


- 
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NEXT, THE DEFUSED MINE MUST BE PICKED UP BY THE 
COLLECTOR (graphic "C")THIS IS CONTROLLED BY 
KEYS 5 TO 8 WITH THE CAPS SHIFT ALSO DEPRESSED. 
THE COLLECTOR MUST NOT HIT A LIVE MINE. 

Once you've absorbed this, you are asked to select the difficulty 
factor: 

ENTER SKILL LEVEL 1-5. 5=EASY 
PRESS 6 TO STOP. 

The INKEYS routine in lines 540, 550 and 560 accepts valid 
inputs, rejecting key presses which are outside the range "1" to 
"6" (line 550) and terminating the program if the "6" has been 
selected (line 560). Line 570 sets the variable SP to a value related 
to the key between "1" and "5" which was pressed. SP controls 
the difficulty, or otherwise, of the game. Line 580 now sends 
action to line 40, the line after the GO TO which started the 
instruction/choice of difficulty sequence at which we have just 
been looking. 

Line 40 sets up the screen. The INK and PAPER are both set to 5 
(cyan), the screen is cleared to establish the colour, and the 
BORDER is then set to cyan. The INK colour changes to black, and 
variable TS is made equal to a single space. Lines 50 and 60 
initialize variables which will control such things as the positions of 
your inverter and controller as well as the number of mines 
disabled. The routine in lines 70,80 and 90 draws the border within 
which the action will occur and the routine from lines 100 to 150 
puts the mines in place, ensuring (line 130) that there are no mines 
printed on top of other mines. If this happened, there would be less 
than 40 mines on the screen and the 'end of game' trigger (fired, at 
the end of line 370, if all 40 mines have been disabled), will never be 
pulled. 

Once the mines are in position, printed in red (see the INK 
change at the end of line 90), the INK reverts to cyan in line 155. IS 
is used to interpret your wishes. The first section (from 180 to 210) 
interprets information regarding the non-shifted keys "5" to "8" 
which control the inverter. The next section (lines 220 to 260) looks 
for the shifted versions of these keys. (Note that the CODE of IS is 
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taken in line 220, and this is used to interpret the shifted keys. This 
is a useful technique if you wish to read shifted keys at any position 
on the screen. To find out the needed CODE, just write a short 
routine to print out the CODE of the key you're depressing). The 
results of these readings are assigned to the variables A, D, CA and 
CD which are added to the current positions of the inverter and 
controller (A and D to the inverter, CA and CD to the controller) after 
the 'old' positions of each are overprinted with blanks (line 270). 

The variable N is given a value equal to the ATTRibutes of the 
new position of the inverter, with CN being given the value of the 
controller position's ATTRibutes. Line 320 reprints the two objects 
and line 325 adds a short BEEP. As you can see, the length of the 
BEEP is related to the value you entered at the start of the run for 
the difficulty factor. The higher the number you entered, the longer 
the BEEP produced in line 325. As you know, all action stops on the 
Spectrum when the BEEP is sounding, and using a variable like this 
is a useful way to get both a sound and a degree of control over the 
speed with which a program runs. If you find the program too 
difficult, even at level five, change the nine in line 570 to some 
smaller value. If N equals 40 or CN equals 40 (line 330) then the 
computer knows you have hit the wall and the program goes to 
line 400 for the unhappy news: "YOU CRASHED INTO THE 
ELECTRIFIED BARRIER". Lines 340 and 350 make the needed 
changes to the mine (if your inverter is over one), turning live mines 
safe and vice versa. If the value of CN is 42, the Spectrum knows 
you have hit a live mine and thus terminates the game by going to 
line 440 where you are told: "YOUR CARRIER HIT A LIVE MINE" in 
flashing, red letters. 

If you have cleared a mine (attribute CN is 41, line 370) the score 
(S) of mines cleared is incremented by one. If S equals 40 (end of 
line 370) then the computer knows that all the mines have been 
cleared and activates line 470 to congratulate you: "YOU MADE 
IT! 11". If neither of these have happened (that is, you have not hit a 
live mine, and you have not disabled all the mines), line 380 sends 
the program back to 160 to continue the process. 

The rest of the program, from 400 to 510, contains the end of 
game messages and some short bursts of Spectrum symphonies. 
Once you become a supremely confident master mine disabler, 
delete line 325 and see how well you do. This is the ultimate test. 




J 


3© GO SUB 60©: GO TO 520 

4-0 INK 5: PfiPER 5: CLS : BORDE 

5: INK ©: LET T$ = ” ** 


■55 LET A = l. LET D=0: LET CA = 1 
70 PLOT 4,4: DRAW 247,0 
S© DRAW ©,167: DRRU -24-7,© 

9© DRRU 0,-167: INK 2 
10© FOR 1=1 TO 4-0 
110 LET TX = INT <RND*30> +1 
120 LET TY=INT (RND*1B3+2 
13© IF SCREENS CTY..TX) = "" THEN 
GO TO 110 

14-0 PRINT AT TY^TX;''*" 

150 NEXT I 

155 INK 5 

ISO LET I$ = INKEY $ 

17© IF I$ = "" THEN GO TO 270 
ISO IF I$=“S" THEN LET R=-l: LE 
T D=0: GO TO 270 

190 IF I*="3" THEN LET A=i: LET 
D=0: GO TO 270 

20© IF I$="S” THEN LET R=0: LET 
D = 1; GO TO 270 

210 IF I $ = " 7 *' THEN LET R=0: LET 
D = -1: GO TO 270 
220 LET I=CODE IS 

23© IF 1=6 THEN LET CR=-1: LET 
C£>=0: GO TO 270 

24.0 IF 1=9 THEN LET CR = 1: LET C 
D=©: GO TO 270 

250 IF 1=1© THEN LET CA = ©: LET 
CD-I- GO TO 27© 

26©'IF 1=11 THEN LET Cfl=0: LET 

~270 i PRINT RT CY,CX,“ ",RT Y,XjT 
S: LET Ti=" " 

2S0 LET X=X+A: LET Y=Y+D 
29© LET OX =CX +CR; LET CY=CY+CD 
300 LET N =ATTR (Y,XJ 
310 LET CN=RTTR (CY,CX) 

320 PRINT INK 7; RT Y,XRT G 
Y , OX; 

325 BEEP SP,O 

330 IF N =4-0 OR ON = 4-0 THEN GO TO 
4.00 

34-0 IF N =4-2 THEN LET T$=CHR$ 16 
fCHR$ l + "«." 

350 IF N =4-1 THEN LET T$=CHR$ 16 
+CHR$ 2 + "«*" 

3S© IF ON =4-2 THEN GO TO 44-0 
37© IF ON = 4-1 THEN LET 5 = S + 1: IF 
6=4-0 THEN GO TO 47© 
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33© GO TO 160 

40© PRINT FLR5H 1; INK 0;RT 0.0 
i”YOU CRASHED INTO THE ELECTRIFI 
ED BARRIER"; 

410 FOR 1 = 1 TO I©: BEEP .02.,-© 
42© BEEP .02,5: NEXT I 
43© GO TO 50© 

440 PRINT FLRSH 1; INK 2.; RT 0,2 
;"YOUR CARRIER HIT R LIUE MINE " 
450 BEEP .2,-20: BEEP .5,-5 
460 GO TO 500 

47© PRINT RT 1,3; INK 0; "YOU HR 
DE IT J J " 

430 BEEP 1,9 
50© INK 0 

510 PRINT "YOU CLEARED ";S;" HI 


R THE SCREEN 
TWO-STAGE 
MINE MUST 
NG THE 
.THIS IS 
YS 5 TO 3. 
INE MUST BE 
ELECTOR (m> . 
BY KEYS 5 TO 
FT ALSO 
ECTOR MUST 


a.s.g.a.g.g.g.s.a.g.^CLEARAUR 
YOUR TASK IS TO CLEA 
OF MINES. THIS IS fi 
OPERATION ..FIRST THE 
BE DEFUSED BY PASSI 
INVERTER <#)OVER IT 
CONTROLLED USING KE 
NEXT, THE DEFUSED M 
PICKED UP BY THE CO 
THIS IS CONTROLLED 
S WITH THE CAPS SHI 
DEPRESSED. THE COLL 
NOT HIT A LIUE MINE 


530 PRINT -'"ENTER SKILL LEVEL 
1-5 5 =EASY PRESS 6 TO STOP. " 

54© LET I$ = INKEY $ 

550 IF I$<”1” OR 1$ >"6" THEN GO 
TO 540 

560 IF I$="6" THEN STOP 
57© LET 5P=UAL I$y9 
530 GO TO 40 

60© READ A $: IF A$="Z" THEN RET 

URN 

61 © FOR 1=0 TO 7 

620 READ N: POKE USR A$+I,N 

63© NEXT I 

640 GO TO 60© _ 

65© DATA "A",0,0,0,60,82,255,6© 

663 DATA "B" ,36,36,255,6©,6©,£5 


5,36,36 

670 DATA "C",0,0,248,254,254,25 
3,255,34 
68© DATA "Z” 
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UDG «*=fl #=B 9k—O 


COPTER 

Here's a program to test your flying skills. You have four heli¬ 
copters and your task is to wipe out a set of marauding red lines. 

You wipe out the lines by landing on them. You must land first on 
the shortest red line you see, then the next shortest, and so on until 
you've landed on all of them in order. One false move and you lose 
your chopper. You have four helicopters with which to complete 
the mission and you'll get bonus points if you manage to do it 
without using up all four craft. 

You fly the little machines using the "0" key to rise, and "5" and 
"8" to move you left and right. Gravity automatically drags you 
planetward if you do not apply thrust. Your final score is related to 
the amount of fuel you have left. If all four copters crash before you 
have destroyed the red lines you'll be faced with the grim 
message: "Copter terminated". There is a high score feature. 

Line 10 sets the BORDER black, the variable h is set to zero in 
line 15 (for the high score, see lines 532 and 535) before the yellow 
INK is selected (line 20) and black PAPER (line 30). After this, the 
program goes to the subroutine starting from line 610 which 
POKEs DATA from line 900 into the graphic "a" position to create 
the tiny helicopter you see in line 45. 


1 
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After the graphic has been defined the screen clears, es¬ 
tablishing your black PAPER. The loop from lines 50 to 70 prints out 
a solid yellow block, using a yellow PAPER and a line of spaces 
within the quote marks. Two arrays are DIMensioned, to hold and 
order the lines upon which the 'copters must land'. The a loop runs 
from lines 100 to 180, using the random number generated in line 
110 and the PLOT (line 150) and DRAW (line 160) commands to 
produce a most effective landing base, as will become clear when 
you run the program. The routine in lines 120 and 130 ensures that 
ten lines of different lengths will be held in the d array. 

The variable r is assigned to one in line 185. This governs the line 
on which the copter should be landing (when r is one, you are 
aiming for the line represented by d[r]). Your fuel variable, f, is set to 
25000 in line 190. As well as controlling the fuel, f is used to set the 
pitch for the sound generation in line 240 (divided by 1000). As 
you'll hear, this produces a sound which fits in well with the action 
of the helicopter. The fuel is decremented by 21 in lines 250 and (if 
you're thrusting) 280. The p variable, your horizontal coordinate, is 
set to 16 in line 210 before your tiny craft is launched in line 220. 

Line 245 prints the'helicopters left' (using IS defined in line 45, as 
three helicopters) down in the bottom right hand corner of the 
screen, and—after the fuel is decremented in line 250, and the 
amount left is printed in line 255 in the bottom left hand corner of 
the screen—your helicopter position is 'unprinted', prior to it 
reappearing. The variable u (assigned initially to one in line 200) 
controls your vertical displacement (the higher u is, the lower you 
are), and lines 275 to 290 read your intentions from the keyboard 
("0" to rise, "5" to move left, "8" to move right), before the 
program recycles to line 220 to reprint the helicopter in its new 
position. 

A landing is detected in line 230 and this directs the program to 
line 400 where the landing site is checked. If this is not the current 
shortest line-that is, p does not equal d(r)—there is a mournful 
bump noise (BEEP .01 ,-10) and 1000 units of fuel are taken away 
from you before the helicopter is printed in inverse for a moment 
(line 412) and another mournful sound is heard (line 413) as the 
helicopter vanishes (line 414). The string IS is checked. If it equals 
the null string (" "), then the computer knows you have run out of 
helicopters. You'll recall that IS was set equal to three helicopters in 
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line 45. Line 416 cuts one helicopter off the end of this string after 
each landing so that when IS equals " ", it knows the four 
helicopters have been used up (the fourth helicopter was not part 
of IS at the start). Line 418 returns the action to line 200, where the 
next helicopter is started on its mission. 

Line 400 checks to see if it was a successful landing. Having 
found that it is, it bypasses all the bad news of lines 405 through to 
418 and jumps straight to 420 where the helicopter is unprinted, 
and the top of the red lines is shaved by line 425. A small BEEP loop 
gives you a moment to catch your breath and the variable r (which 
counts the number of lines) is incremented by one. If it is less than 
eleven there are still lines left on which to land. If not, the unused 
helicopters are blotted out (by line 490) and the fuel is incremented 
by 1000 units per remaining helicopter, thus ensuring you get your 
bonus for unused craft. The new fuel figure is clocked up 
progressively (line 520) as it is worked out. 

The high score is adjusted, if necessary, in line 532 and then 
printed by the next line before the program goes to line 310 to 
announce that the game is over. If you have not managed to wipe 
out all the lines (that is, r is less than eleven) then the failure 
message "Copter terminated" appears. Lines 330 and 340 wait 
until you take your finger off the keyboard (line 330) at the end of 
one round, then replace it again (line 340) to signal that you are 
ready for a new round. When you are, the program moves to line 
40 which clears the screen (but does not redefine the character nor 
reset variable h, the high score variable) and sets you off again on 
another mission with four new helicopters. Good flying. 


5 REM Copter 
1© BORDER © 

15 LET h=© 

S0 INK 5 
3© PfiPER © 

35 GO SUB 610 

4-0 CL 5 

4-5 LET l $ = 

50 FOR 3=11 TO 21 
6@ PRINT hT a,©; PAPER 6; 

78 NEXT 3 
80 DIM d(l©:« 

9S DIM E(32) 

100 FOR 3=1 TO I© 

110 LET b=JNT !RND*321 
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12© IF e (b+U =1 THEN GO TO 110 

13© LET e(fa+l>=1 

14-0 LET d (a) = b 

150 PLOT b +4- , ST 

1&© DR fly INK 2; 8, -3 fS-f-1 

1S3 NEXT a 

105 LET r =1 

193 LET f =2500© 

=00 LeT u=© 

213 LET p =15 

223 PRINT INK 4-; AT U ,p; ' i " 

230 Ir u =9*r THEN GO TO 4-3© 

24-0 BEEP * 01 , f.-'I©©© 

= 4-5 PRINT INUERSE 1; AT 21,-27; l 3 


253 PRINT AT V ,p; 1 “ 

270 LET u«u+ 1 
275 LET i =!N 514-30 

200 IF I NT ti/2> ri/2 THEN LET u 
=U -2* (U >i:« ; LET f = f —21 
29© LET p=p+{i =251 OR i=250) J (p 
!31)-(IN 634-05 <2551 sup >©A 
33© GO TO 22© 

31© PRINT AT 7,-12; INK 5; “GAME 
OUER ** 

320IF r<11 THEN PRINT AT 21,0, 
PflPtH 1; FLASH 1 ;"copter terii n 
sled” 

33© IF INKEY $i THEN GO TO 33 


34-0 IF INKEYS = THEN GO TO 34-0 
35© GO TO 4-© 

4-00 IF P=dir3 THEN GO TO 4-2© 

4-©5 BEEP . 01 , -10 
4-13 LET r = ? -1000 

412 PRINT INVERSE 1;«T D,P, 

413 BEEP ,1,-2© 

414 PRINT AT " 

415 IF 1$="” THEN GO TO 31© 

415 LET lS = lS f 2 TO J 

415 GO TO 200 
420 PRINT AT u.p;~ 

425 PRINT AT l© + r,0; 

430 FOR 3=0 TO 20 
440 BEEP ,01,-3 
450 NEXT 3 
4&© LET r=r+i 

470 IF r<11 THEN GO TO 200 
43© FOR 3=1 TO LEN L$ 

490 PRINT AT 21,26+a; "B 
500 BEEP .5,3 f!0 
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510 LET f=f*a* 100© 

520 PRINT ST 21,0; "fuel f 
530 NEXT a 

532 IF h < f THEN LET h=f 
535 PRINT INUER5E ljftT 21,14-; "h 
i-score **;h 
54-0 GO TO 310 
610 FOR b=0 TO 7 

62© HCHL) c 

530 POKE USR ”a“+b,c 
64-0 NEXT fc 
65@ RETURN 

90© ORTA 0,65 , -32=3,62 62, SW ,34- 

MAZURKA 

In MAZURKA, you face the shootin' challenge of your life. Set in a 
fairground, this game is like the Duck Shoot ones where you have 
to shoot down ducks and other objects passing in front of you. 

This computer version of the game, however, has additional 
hazards. Several rows of objects move above you in MAZURKA, 
partially blocked by four barriers moving in the opposite direction. 
Your aim is to hit as many of the objects as you can without hitting 
the barriers. You move your gun (graphic "H") using the keys "5" 
and "8", moving in the direction of the arrows on those keys. The 
trusty "F" key fires your gun. Only one bullet can be on the screen 
at any one time. You have limited ammo and the number of shots 
left is indicated by the length of the line below you. 

As you can see from the sample printout the screen is a wild 
cacophany of moving objects, creating an exciting display. 
However, this is not all. From time to time a duck will fly across the 
screen, somewhat like the rogue mother ships which appear 
occasionally in 'galactic intruder' arcade games. You get a bonus of 
six points if you hit the duck and lose 15 points if you miss it. It is 
fairly easy to hit, as the duck flies below the barriers, as you can see 
in the sample run printout. 

The subroutine from line 600 is called from line 20. This routine 
defines the user-graphics, using "A", "B", "C". "D", "E", "H", "I" 
and "J". When line 600 (READ CS) comes across the "Z" in line 
750, this triggers the RETURN. Back near the start of the program 
(line 30), the PAPER and BORDER are turned to yellow (colour six) 
and the screen cleared to establish the PAPER colour. Line 35 puts 
the INK to black (colour number zero) and the program goes to line 
500, where the instructions are printed up: 
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YOU HAVE TO SHOOT THE OBJECTS MOVING ABOVE 
YOU WHILE AVOIDING THE BLACK LINES. THE HIGHER 
THE ROW, THE GREATER THE SCORE. MOVE THE GUN 
WITH THE KEYS 5 AND 8 FIRE WITH THE F KEY. ONLY 
ONE BULLET MAY BE PRESENT AT ANY ONE TIME AND 
THE NO. OF SHOTS REMAINING IS SHOWN BYTHE 
LENGTH OF THE LINE UNDER YOU. EACH TIME A DUCK 
GETS TO THE END OF THE SCREEN, 15 SHOTS ARE 
DEDUCTED FROM YOUR TOTAL NO. 

After this you are asked to enter "Y" to start the game. This 
instruction and "ENTER Y" routine occurs at the end of each 
game, so you can exit from the program at this point by entering an 
"N" or an "n". Any other key, except "N" or "n" will give you a 
new game. Subsequent games do not, of course, trigger the 
subroutine from line 600 to initialize the graphics. 

Back at line 40, variables are initialized, and the string array which 
holds the moving targets (AS) is dimensioned. The loops from 60 to 
100 randomly assign targets to the strings. They are printed by line 
95 and a rising tone is created by line 97 as the program is setting 
itself up. The B at the end of line 100 controls the length of the line 
which appears beneath you, i.e. the line whose length is related to 
the shots you have left. B is decremented in line 210, and the end 
of the line is wiped out by the PLOT OVER which follows. AS(5) is 
set equal to the moving barriers, so we have AS(1) through to AS(4) 
as objects for shooting, and AS(5) as the barrier which will do its 
best to impede your shots. Line 107 BEEPs to let you know things 
will soon be under way. 

The I loop, from lines 110 to 350, is the main part of the program. 
It controls the movement of the objects in the loop (setting TS to 
the first element in the string in line 120 and adding this in line 130 
to the end of the string which is stripped of its first character), and 
then prints them (line 140), choosing different INKs for each line 
(the top line is blue, the second red, the third magenta and the 
fourth line is printed in green). After this, line 170 blanks out the 
position where the human marksman was printed and line 180 
changes the value of the human's horizontal position in accord with 
the key press detected in that line (line 190 adjusts the position if it 
is far to the right or left). 
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You are reprinted in line 200. If B is zero, all shots have been used 
up, so action goes from line 205 to 430 where you are told you've 
run out of ammunition. Line 210 is the one which checks to see if 
you can fire (if F equals one, no bullet is in the air, so it is OK to fire). 
Line 210 also sets the horizontal coordinate of the bullet (FX) equal 
to the human horizontal position (G). F is the vertical coordinate of 
the bullet, so (F, FX) is the location where the bullet needs to be 
printed and subsequently unprinted. Line 240 decrements the F 
coordinate by one (which has the effect, when the bullet is 
reprinted, of moving it one line up the screen). 

Your marksmanship is tested in line 250. If SCREENS (F, FX) is 
found to be empty, no object lies directly above the bullet. If an 
object is found, a test is applied to see if it is the barrier (lines 260 
and 265 test this; if P equals five you have hit the barrier). If you've 
hit the barrier, the game is over and the computer goes to line 400 
to tell you the happy news. If you have not hit the barrier, but you've 
hit something, that something must be one of the objects at which 
you're aiming. Line 270 gives you a score related to how high up 
the object is (the lower the value of P, the higher up the screen you 
are). Once you've hit an object the bullet must stop, so F is reset to 
one (see the end of line 270). If you have hit the duck, P will equal 
six, so you get a bonus of six points, and the variable D is reset to 
zero. The program jumps from here to 300 if a duck has been hit. If 
it has not, the score is printed, flashing, by line 275 and the element 
of the string which holds the object you hit is set to a space, so the 
object disappears. 

If you have not hit anything (so the GO TO 300 at the end of line 
280 is not reached), line 290 prints the bullet. About once in every 
50 passes, line 300 will generate a new duck if there is not one on 
the screen. Line 320 moves the duck and 330 checks to see if it has 
reached the right hand side of the frame. If it has, the duck is erased 
by this line, D is reset to zero, (the 'no duck' condition) and 15 is 
subtracted from your bullet tally before the bullet tally line is 
'undrawn'. The last part of line 330 (GO TO 350) jumps over the 
duck PRINTing in 340. Line 350 ends this master loop. 

You'll recall that AS (5) holds the moving barriers. ln360TS is set 
equal to the final element in AS (5), and this is moved to the front of 
the String in line 370. This is the opposite of what happens to all the 
other elements of the AS array, so the barriers move in the 
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opposite direction (although at the same speed) to the target 
objects. 

Line 380 prints the barrier and 390 sends action back to line 110 
where the master loop begins again. Lines 400 and 420 are 
triggered if you hit the barrier (P equals five, from earlier in the 
program) and after telling you this, the program goes to 450 to print 
out your score. If you run out of bullets (that is, the variable B equals 
zero) lines 430 and 440 are triggered: "YOU HAVE NO MORE 
BULLETS LEFT". After the end of game messages, the title page 
re-appears, and you enter anything except "N" or "n" for a new 
game. 

Here is the program in action: 



±k w-flsfett •e-vvv.'V ±± £ itefe* 




And this is the program listing: 

20 GO SUB 600 

30 PAPER 6: BORDER G: CLS 

35 INK 0: GO TO 500 

4-0 LET 6=16: LET F=2. LET 5=0 

50 LET FX =0. DIM R*f5,32.>.- CLS 

G0 FOR 1 = 1 TO 4- 
70 FOR «J = 1 TO 32 

©0 LET R* f I,=CHR* fINT (RND* 
5) + 14-4-1 

90 NEXT U 

95 PRINT RT 1*3,0;R*fU 
97 BEEP .4-, 1*2 
100 NEXT I: LET B=2S6 
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102 LET 0=0: DR AW 5 55,0 
^JLOS LET A* t5i = Mmmmmm 

107 BEE^TTs 

110 FOR 1=1 TO 4- 

130 LET T*=A*(I,1) 

130 LET A* tU =R* fl,2 TO J +T$ 

14-0 PRINT INK I; AT 1*3,0; A* K XS 
170 PRINT RT 20,0;" " 

ISO LET 0=0+ t'INKEY$="3"i — (INKEY 
$="5“3 

190 LET 0=0+ fG = —13 —(0=323 
200 PRINT RT 20,0; **i" 

205 IF B =0 THEN GO TO 4-30 
210 IF F = 1 RND INKEY $ = ”F" THEN 
PRINT RT 1, FX; *’ **.• LET F=20: LET 

FX=G: BEEP .02,-15.- LET B=B-1. 
PLOT OUER 1;B,0 
220 PRINT RT F,FX; " ** 

230 IF F =1 THEN GO TO 300 
24-0 LET F=F —1 

250 IF SCREEN* tF,FX3=" ** THEN 
GO TO 290 

2S0 LET P=F/3: BEEP .02,5 
265 IF P =5 THEN GO TO 4-00 
270 LET S =S +5—P: LET F=1 
272 IF P =6 THEN LET S=S+S; PRIN 
T RT 1B,FX;** **: LET 0=0; GO TO 3 

00 

275 PRINT FLRSH 1;RT 0,10;S 
280 LET A*(P,FX + 1>=" ": GO TO 3 
00 

29© PRINT RT F,FX;"i" 

300 IF 0=0 RND RND>.98 THEN LET 
0 = 1 

310 IF 0=0 THEN GO TO 350 
320 LET 0=0+1 

330 IF 0=31 THEN PRINT RT 18,31 
LET 0=0: LET B=B-15: LET 3 
=B*(B>=03. DRAW OUER 1;-PEEK 236 
77 +B, 0 : BEEP .02,9: GO TO 350 
34.0 PRINT RT 18,0;" 

350 NEXT I 

36© LET T$=R$(5,323 

370 LET A* f53 =T*+R*(5, TO 313 

38© PRINT RT 15,0;R*fS3 

39© GO TO 110 

4.00 BEEP 2,-9 

4-10 PRINT FLRSH 1 i RT 0,0; "YOU H 
IT THE BRRRIER ” 

4-20 GO TO 4-50 
4.3© BEEP 1,1: BEEP 1,9 
4-4-0 PRINT FLRSH 1;RT 0,0; "YOU H 
RUE NO MORE BULLETS LEFT” 

4-50 PRINT FLASH 1; INVERSE 1;**Y 
OUR SCORE IS **; S 
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. THE HIGHER 
RTER THE SCORE, 
H KEYS 5 RND 8 
KEY. ONLY ONE 
ESENT RT RNY 

NO. OF SHOTS 

UN BY THE 
NE UNDER YOU. 

GETS TO THE 


500 PRINT, POT SHOTi| 

UUUUIU1" ' "YOU HBUE TO SHOOT 
THE OBJECTS MOVING RBOUE YOU 

WHILE AUOIDING THE BLACK LINES 

-- THE ROU ^ THE ORE 

MOUE THE GUN WIT 
FIRE WITH THE F 
BULLET MAY BE PR 
ONE TIME AND THE 
REMAINING IS SHO 
LENGTH OF THE LI 
EACH TIME A DUCK 
._ ._ _ END OF THE SCREE 

N, 15 SHOTS ARE DEDUCTED FROM YO 

UR TOTAL NO. ** _ 

510 PRINT -'"PRESS Y TO START, 

N TO STOP” 

520 IF INKEY * ="" THEN GO TO 520 
53© IF INKEY*="N" OR INKEY* = *T»" 
THEN STOP 
54-0 GO TO 4© 
ggq STOP 

600 READ C*: IF C*="Z** THEN RET 
URN 

610 FOR 1=0 TO 7 

S20 RERD N: POKE USR C*+I,N 

630 NEXT I 

54-0 GO TO 600 

650 DRTR "A",BIN 00110000,BIN © 
1110000,BIN 00100001,BIN 0011111 

O, BIN ©0011100,BIN 00001000,BIN 

00011000,255 _ „ 

660 DRTR "B",0,0,BIN 01100001,8 
IN 11100001,BIN 00111110,BIN 000 
1001©,BIN 00110110,255 
670 DRTR "C",BIN 00011000,BIN 0 
1111110,BIN 10111101,BIN 0110011 
0,BIN 00011000,BIN 10111101,BIN 
10011001,255 

68© DRTR **D" , BIN ©111110©,BIN 1 
0010010,254-, 254., BIN 11000110,BIN 
©1111100,BIN 00111000,255 
685 DRTR "E",BIN 00111000,BIN © 
3111000,16,254., 16,4-0,4-0,255 
690 DRTR "H",BIN 00111000,BIN 0 
0111000,BIN 00011000,BIN ©001100 
©,BIN 00011110,BIN 00011000,BIN 

80011111,BIN ©0101111 _ 

700 DRTR "I",©,0,8,28,28,26,62, 


,0,32,18,255,BIN 


WJ. -LtOKJf , JLO , 

750 DRTR **Z” 


UDG- i=H A=I +*=J 
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ALPHABATTLE 

In this unusual game you are in control of a green helicopter while 
the Spectrum takes charge of the blue, swing-wing jet fighter. You 
are battling for possession of the alphabet. The letters you own are 
down the left hand side of the screen and the computer's are on 
the right. 

Using the "5" and "8" keys to move horizontally, and "w" and 
"z" to move vertically, you position yourself in front of one of the 
enemy's non-flashing letters. You then press "o" and immediately 
the corresponding letter on your side will start flashing. The enemy 
letter will vanish, your score will be incremented, and you'll be 
transported back to the right hand side of the screen for another 
foray into battle. Note that you can press more than one key at a 
time (as IN, rather than INKEYS is used to read the keyboard; see 
lines 410 and 420) so diagonal movement is possible. While you're 
doing all this, the computer is similarly engaged in stealing your 
letters. 

Hovering in front of the letters and pressing "o" is one way of 
obtaining letters. There is another method. If the computer's blue, 
swing-wing jet fighter is on the same line as any of its non-flashing 
letters, you can position yourself on the same line, and fire at it 
using the letter "o". The computer will also try to fire at you, so the 
display can get quite lively. 

The game ends when all of the letters have been captured by 
one side or the other. The computer will then display the winning 
score. (You, by the way, are referred to as the 'humanoid' in the 
score sequence.) 

Lines 100 to 150 define the graphics (the letters used are "a", 
"b", "c"and "d") reading from the DATA from line 900. Two arrays 
are dimensioned, p and t, and 22 letters of the alphabet are 
distributed to each array, positioned randomly within them, and 
printed. 

Your helicopter's position is defined by the values of u and p. The 
vertical coordinate (p) starts at 29 (see line 290) and the horizontal 
one above the position where your last letter was printed. The 
computer's position starts at a similar location in relation to its own 
last letter, using a and t (which starts at 1, see line 310). Lines 410 
and 420 read the keyboard, using IN as mentioned before, and you 
are printed by line 430. If you have decided to capture a letter, or 
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fire at the computer's craft, line 440 sends the action to line 580 
which further directs the program to the subroutine from line 1050 
which fires your laser weapon if needed. If a equals u in line 440, 
then the program goes to 700 to capture the letter and increment 
the score. If you are hard over to the left, p will equal 1, so the 
computer will go to 700 anyway to do those two tasks. 

Line 460 blanks out the position of the Spectrum's fighter and 
uses the next routine to determine its new position. The variable a 
which controls the vertical position of the jet is changed in line 480 
and t is changed in the following line to bring the jet closer to your 
helicopter. Lines 610 and 620 add a random element to the 
computer jet movements. 

Line 650 reprints the jet in its new position and the start of line 
660 determines whether or not the jet will try to shoot at you, 
sending the program to the subroutine from 1000 if it does decide 
to take a shot. If t is 29, the computer knows it is over on your side 
of the screen, so it sends action to the subroutine from 1100 which 
captures the relevant letter. It then unprints the letter at the same 
height on the left side, going to the subroutine from 800 for a 
victory trill before returning to put the letter in place. If the scores 
achieved by you (s) and the Spectrum (x) together total 22, the 
game is over and line 735 redirects the program to 1200 where the 
screen is cleared before the result of the ALPHABATTLE is 
declared. Line 745 unprints the jet from its old position, and resets 
p and u before returning to line 400 so the merry dance can begin 
again. 


1© REM Alphabattle 
IS© FOR a=i TO 4- 
II© FOR b=© TO 7 
IS© REhD c 

13© POKE U5R CHR$ i 14-3*3.* -J-b < C 

14© NEXT b 

15© NEXT a 

SO© DIM P IS,S2) 

205 DIM 1 S£,S2) 

21© FOR P = :i TO 22 

213 FOR f=1 TO 2 

22© LET e =INT (RND*22J 

230 IF pif,e+1)>© THEN GO TO 22 

© 

£4© LET p ( f,e+lJ =p 

25© PRINT INK S; RT e, ( f=2)*31 jC 
HRs i&A-rP) 

255 LET t {f, p } =£ +1 
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360 NEXT f 

270 NEXT P __ 

38@ LET U=t(2, L'H .< -1 
230 LET p =23 
3©0 LET a=til,22)-l 
310 LET t =1 
320 DIH h C 2,225 
33® LET S- =© 

34-0 LET x =© 

4S© PRINT hT u,p;" 

410 LET P —p + (IN SI433 < >2555 it ip < 
a« > - i IN 63486 < > 255 5 

_ 4=:© LET u =u + (IN -55273 < . 255~t -*■ t ii 

4-1 >- < IN 5451© < >255? * { U >05 . 

4,3© PkINT RT U , p; INK 4 : <M“ 

44© IF IN 57342 < >255 RND p> 1 th 
E t* GO S! - S L- 53©: IF a=u THEN GO TO 
;00 

450 J.F p =± THEN GO TO 70© 

4S0 PRINT ST 3 ,t;" 

47© IF p(i,u+i)<11 THEN GO TO 5 

50 

430 Let a=a-t!3<y) - (s>u) 

49© LET t = i + iflSS ss-iu <flB5 it-P 
>) - ( pbs (3 -u 5 > pbs »t -p 5 ? it s' t > i 5 
5©© GO TO 65© 

55© IF h ■I,p(2,3415 > =1 OR h(2,p 
(2,- a tlJ 5 =1 THEN GO TO SO© 

55© LET t=t+l 
57© GO TO 65® 

55.0 GO SUB 1050 

59© BEEP -005,-20: GO SUB 105® 
595 RETURN 
600 LET r=RND 

610 IF RND < . 5 OR U=21 THEN LET 
5=3 - is >05 

620 IF RND >- 5 OR 3 =0 THEN LET a 

=3 + (3 <205 

650 PRINT RT 3 , t ; INN 5; 

660 IF RB5 (3 —U 5 <3 RND P>t RND 
h il,p Cl,u+155 =0 RND hf2,p«l,u+l) 
5=0 THEN GO BUB 1000: BEEP ,005, 
0: GO SUB 1000: IF 3 =U THEN SO T 
O 85© 

670 IF t =29 THEN GO TO 1100 
660 GO TO 400 

7@0 IF b Ci,p C1, U + A 5 5 =1 OR b (2,-p 
CA,u +15 5 =1 THEN GO TO 745 
705 PRINT RT U,0; “ " 

71© GO SUB 30© 

72© PRINT FLASH 1; RT t C2,P !l,L* + 
15 5 -1,31; C HR$ i'54+P tA,U+A5 5 
730 LET s=st( Ch (2 ,- P Cl, L« +15 5 5 =05 
735 IF s+x=22 THEN GO TO 1200 
740 LET h C 2 , p C A , U + A 5 5 =1 
745 PRINT RT U,p;“ 



Arcade Games 45 


?II iP T u=3 2 then let V:r^=f- ... (x 

765 PRINT #l;RT 1,0;"Score , ex 
) /'Score “; ts5 
77© GO TO 400 
300 BEEP -005,10 
31© BEEP .©1,20 
32© BEEP .005,10 
330 RETURN 
©50 PRINT RT 3,t,“ 

36© LET a =U 
37© GO TO 1100 

90© DRTR 0,64,43,62,31,31,31,32 
905 DRTR 0,0,©,©,!92,252,0,0 
910 DRTR 0,3,7,15,31,3,127,0 
920 DRTR 0,230,230,246,254,16,2 
54,0 

100© PLOT OUER 1; Ct+25*3,C21-a5* 
3+3 

1010 DRAW OUER 1; INK 3; Cp-ti+3, 
© 

1030 RETURN 

1050 PLOT OUER l;p*3, f2 JL-lO +3 
106© DRRU OUER 1; INK 5; S t-p5 +3, 

1070 RETURN 

110© IF b C 2 , p (2,3+155 =1 OR b (1,p 
C2,a +15 5 =1 THEN GO TO 116© 

1105 PRINT RT a/31; " " 

1110 GO SUB 600 

1120 PRINT FLASH 1;RT tfi,p/2,3+ 
15 5 -1,0; CHR$ C64+Pf2,a +15 5 
1130 LET X=X + ((hil,p (2,3+1555=05 
1140 IF X +5 =22 THEN GO TO 120© 
115© LET h(l,p(2,8+l))=a 
1160 PRINT RT a,t;" 

1170 LET t =1 

1130 IF U=3 THEN LET B = t'U =05 
1190 GO TO 765 
1200 CL5 

1205 PRINT RT 11,12;"GAME OUER" 
1210 PRINT RT 19,0; 

1220 PRINT "spectruB “; 

1230 FOR 3=1 TO X 
1240 PRINT "s"; 

1250 NEXT 3 

1260 PRINT TRB 25; X ' "hOBS.OOi 6 
1270 FOR 3=1 TO S 
1260 PRINT 5 \”; 

1290 NEXT a 

1300 PRINT TRB 25; S 

1310 IF INKEY t <>"" THEN GO TO 13 


1320 IF INKEY$? = 
0 

1330 RUN 


THEN GO TO 132 






46 Arcade Games 

SMASHOUT 

In this colourful version of 'Breakout' you have to try to break 
through the brick wall using a sharp-edged, diamond-shaped ball. 
As you'll see when you run this game, the graphic "A" has been 
redefined to look just like bricks. The wall you are trying to smash 
through looks very effective indeed. You get 12 balls to bounce at 
the wall and movement of your paddle (at the bottom of the screen) 
is controlled by the "5" (left) and "8" (right) keys. The score is 
shown at all times and is updated on the screen when necessary. 

Line 15 sets the BORDER and PAPER to red, and the INK to 
white. The frame within which the game must be played is printed 
by line 20 (the top) and the loop in line 30, is green. (There is no 
need, of course, to stick to my colour scheme in any of these 
programs; different televisions react differently to the Spectrum's 
colour, and combinations which work well on my television may 
prove unsuitable on yours, so feel free to experiment). The variable 
S (for the score) is set to zero in line 35, and A and B (which control 
the flight of the ball) are both initialized at one in this line. Lines 40 
and 42 are loops which define the bricks (line 40) and the ball (42), 
drawing on the DATA statements, lines 210 and 215. 

The next loop, from lines 45 to 55, prints in the bricks. Note that 
line 55 consists of 28 graphics "A". Line 50 chooses a random 
number to determine the colour of each row of bricks. The second 
part of the line checks that the chosen colour is not red (that is, two) 
which would make it the same as the background colour. If it finds 
that red has been selected (that Z equals two) then it goes back to 
the start of the line to choose a new colour. 

The next line, 60, determines the starting position of the ball. The 
ball is printed at X, Y and the variables which will be used to 
'unprint' the ball (DX and DY) are set equal to X and Y in this line. If Y 
is greater than 28 or Y is less than three, then the ball has hit one of 
the sides, so line 65 sends attention to line 155 where its direction 
is reversed (that is, it is made to 'bounce' off the side wall). 

If X is less than two, then the ball has hit the top of the frame and 
line 70 bounces it downwards. Line 75 checks to see if the position 
the ball will occupy contains a brick and if it finds it does, goes to the 
subroutine from 125 which makes a brick-smashing sound (!) and 
changes the value of B, which is used to increment the Y value. If X 
is less than 20, the ball is at the bottom of the frame. Line 80, 
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alerted to the ball's position by the X value, checks to see if the 
paddle is in the right position to deflect the ball. If it is, the bounce 
sound is made (BEEP .008,10) and the variable A which controls 
the change in the ball's vertical position is multiplied by minus one. 

The first part of line 85 uses the variables DX and DY to blank out 
the old position of the ball, and then the ball is reprinted using X and 
Y. Line 90 prints the paddle. Note how it has a space at each end, 
which means the moving paddle automatically blanks out its old 
position. The routine in line 95 reads the keyboard and uses the 
INKEYS reading and the value of N to change the value of N, which 
determines the position of the paddle. 

The ball position is updated in line 105. If X is greater than 21 (line 
110), the computer knows the ball has missed the paddle and fallen 
out of the bottom of the frame. The subroutine from line 165 prints 
out the ball number, the ball variable (Q) is incremented by one and 
a 'new ball' noise is created in line 175. The number of balls used is 
checked in line 180 and if it is found to be 12 or less, the program 
'falls through' to the next line. If 12 balls have been used, the 
message GAME OVER***STAND BY is flashed on the screen in a 
variety of colours, as a sound loop generates some audio backing 
for the colourful flashing. After this breathless display, a new game 
begins. 

If the maximum value of Q has not been exceeded a new starting 
position for the ball is generated, the bottom line of the frame is 
totally overprinted to remove the old position of the paddle, and the 
direction of the ball (either to the right and up, or to the left and up) 
is determined by the value given to M in line 185, and imported to 
the variable B in line 200. Attention then shifts back to line 60 
where the song and dance begins again. The final two lines of the 
program—210 and 215—contain the DATA for the bricks and the 
ball respectively. 

10 REM S®hoot 

15 BORDER 2: PfiPER Sr INK ?: C 
L5 _ 

30 FOR N = I TO £0. PRIffT Fff N , 1 

INK 4-; *‘B 

: NEXT N 

35 LET S=e. LET R=l: LET B = 1 
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4-0 FOR N=USR "R” TO USR ”fl”+6: 
READ K: POKE N^K: NEXT N 
4-2 FOR N=USR "B" TO USR “B“+6: 
READ K: POKE NjK: NEXT N 
4-5 FOR N=2 TO S 

50 LET Z = IHT fRND*8) : IF 2=2 T 
HEN GO TO 50 

55 PRINT RT N j 2; INK Z; BRIGHT 
** : ' NEXT N 

6© LET N = I5: LET X =20: LET Y = I 
NT (RNDfie.l i-5: LET OX =X. LET DY = 


75 IF SCREEN* (X,Y) < >” ** THEN 

GO SUB 125 

S© IF X >20 RND ( V =N+2 OR Y=N + 1 
OR Y=N+3J THEN LET R = -R: BEEP - 
303=10; LET Y=Y + i 

65 PRINT fiT DX,DY; ** “;RT X#Yj 
LET DX=X: LET DY = Y 
30 PRINT RT 21/N;" E9B " 

35 LET N=N+{INKEY$="8" RND N<= 
26)—tINKEY*="5“ RND N>0) 

105 LET X=X-R: LET Y =Y+B 
110 IF X >21 THEN GO TO 1S5 
115 PRINT RT 0,5; INVERSE i;“SC 
ORE =“ ; S : INVERSE © 

12© GO TO 65 
125 BEEP * SSS,2© 

130 PRINT RT DXj.DY;" ”;RT X,y; " 

135 LET R=—1 

14-0 LET 5=Sfl 

14-5 RETURN 

15© BEEP ,003,30 

155 LET B=l-2sfY>26 OR Yi2J 

150 RETURN 

165 PRINT RT 0,2S; INVERSE 1; “B 
ALL: “;0: INVERSE © 

170 LET 0=0+1 

175 BEEP 1,0: BEEP 0.02,2© 

1S0 IF O >12 THEN FOR Z = 1 TO 10: 
PRINT RT 5,5; INK RND+6; FLfisH 
1;"GfiHE QUERsssSTRND BY”: FOR D= 
0 TO 30 STEP 3: BEEP = 0©S,D: BEE 
P .©OS,-CD): NEXT D: NEXT Z: RUN 


135 LET R = 1 

200 LET B=-BSCM<0.5)+Bs{«>=©.5) 
205 GO TO S@ 
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3© RERD a*(a) 
4-S NEXT a 
50 DRTR * m 

_v» 


i 


55 LET s=l 
60 LET a=3 

70 LET t =INT (RNQs22> 

60 PRINT RT 21,-14-; INK 2; "84T#» 

3© FOR b=I TO 12 
I©© PRINT RT a +b,1;- 3* t INT f f fr/I 
= 3> + .5) J 
135 BEEP- I/s , b 

107 LET s=s+l: PRINT RT © y 0;s 
110 PRINT RT a+b,©;” 


t<3 THEN GO TO 2 


is© LeT i=—1 

17© IF i =-I THEN PAPER 3; 50.RDE 
R 0: INK 6 

IS© IF i=1 THEN PRPER INT iRNDj 
7>+l: BORDER 4-: INK 0 
13© CLS 
135 GO TO 60 
2©0 FOR 3=1 TO 20 

205 LET n = JNT (RNDjS) : IF n=2 T 
HEN GO TO 205 
21© PRPER n: CLS 
22© NEXT 3 

225 PRPER 6: INK 0: CLS 
230 PR INT RT II, 1©; "Score '; s 
235 PRINT RT 18,18;"Press any ft 
ey ” 

24-0 PAUSE © 

250 RUN 


DEATH RACE 2000 

Can you elude the fearsome green creepie-crawlie and get through 
DEATH RACE 2000 before you are caught? This program will help 
you answer that question. 

The program creates a rectangular maze on the screen with you 
on the left and the aforementioned creepie-crawlie somewhere in 
the body of the maze. Using the "5" and "8" keys to move left and 
right respectively and "w" and "z" to move up and down, you have 
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to manipulate the little man-child (the figure at the end of line 240) 
from the left to the extreme right of the maze. 

Line 5 seeds the random number generator and lines 10 to 30 set 
the BORDER and PAPER to black and the INK to yellow. Line 40 
sends action to the initialization subroutine at line 500 where DATA 
is held for the two user-defined graphics (the man-child and the 
creepie-crawlie). Once the graphics have been defined, the 
program returns to line 50 where a function to generate random 
numbers is defined. The screen clears in line 55, triggering the 
PAPER colour set in line 30 and two variables x (the number to be 
used in function a to produce random gaps in the walls of the maze 
in lines 160 and 170) and s (your starting score, which is 
decremented in line 245 by 16 each time through the master loop) 
are initialized. 

Line 100 prints a solid yellow bar across the top of the screen and 
then the loop from 110 to 130 prints bars down the screen in cyan 
(line 120) with the right hand side of the frame (line 125) in yellow. 
Line 140 completes the raw material for the maze with a solid bar 
along the bottom. 

Function a now comes into its own, printing blanks at random 
spots on the solid walls of the maze. These are the spots which you 
must use (and which the c.c. uses) in your breathless race for the 
right hand side. Lines 190 to 220 assign values to u (the horizontal 
coordinate of the man-child's starting position), t (the vertical of the 
creepie-crawlie's start), a (the creepie-crawlie's horizontal starting 
coordinate) and p (this is given a value of 1, as the man-child must 
start on the left hand side of the DEATH RACE). 

Line 235 checks to see if the creepie-crawlie and the man-child 
are occupying the same spot. If they are, thecreepie has struck and 
the program moves to line 400 where, after a short snatch of the 
'Creepie-Crawlie Victory Anthem', you are informed that you lost 
the DEATH RACE. The rest of the major loop from 230 to 315 looks 
after reading the keyboard. 

"You won the Death Race" is the joyous news from line 360. 
365 checks to see if you've beaten the high score, adjusting the 
high score variable (h) to that of the score (s) if necessary, and lines 
370 and 375 print out the score and high score respectively. Note 
that line 370 uses the length of the string version of the score (LEN 
STRS s) to position the printout. Lines 380 and 390 wait until you 
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take your hands off the keyboard (380), then until you press a key 
(390) to start a new race (from line 55). When you're really 
confident of your ability in mastering the DEATH RACE, you might 
like to modify the program to have two or more creepie-crawlies. 

5 RANDOMIZE 


3.0 BORDER 3 
20 INK & 

30 PAPER 3 
4-0 GO SUB 50© 

50 DEF FN a fX3 =INT *1 

55 Ci_S 

5© LET X =20- 

7© LET 7- =4 0000 

88 REM 

00 rem 

100 PRINT INVERSE 1; ** 


110 FOR 2=0 TO 23 

W 2 m ST mm am m- 

125 PRINT RT 3,38; 


■ » a m m m m 

INVERSE a; “ 


130 NEXT a 
14.0 PRINT RT 21,0; 


INVERSE 1P” 


150 FOR a=2 TO 28 STEP 2 
IS© PRINT RT FN 3fX3,3,** “ 

170 PRINT RT FN 3 f X 3 ,3.: ” " 

IS© NEXT 3 

19© LET U=FN 3 (X) 

20© LET 3 =FN a (X) 

21© LET p=1 

220 LET t =FN a (153 *2-1 _ 

230 PRINT RT INT 3 , t ; INK 4-; .** 

235 IF RTTR (U,p)=4. THEN GO TO 
4-00 

24-© PRINT RT U,p;”£” 

24-5 LET 3 =S —IS 
25© BEEP -©3,S7200 

255 PRINT RT 0,1; INVERSE 1,3;” 


2S0 PRINT RT U,p.:“ " _ 

2S5 IF INKEy$ = "8" RNf> RTTR fU , p 
*1) =S THEN LET p =p *2: BEEP -1 ,-P- 
BEEP . 1 , p —12 

270 IF INKEY$=“5" BHD RTTR CU,P 
-13=6 THEN LET p=p-2: LET 3=3-10 
0: BEEP .1.0 

275 IF p =29 THEN GO TO 320 
260 LET U=U+ ( INKFV'$="2 ”3 * fU ^203 
- (INKEYf="»”J * (Li >13 
235 PRINT RT INT a,t;” ” 
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230 LET 3 =3 tRNDf f XNT 3 <Lf .1 -5WD * f 
IMT 3 >L»5 

295 IF flTTR (IMT 3,ttl.1=6 AND t 
<p THEN LET t =t +2 
300 IF RTTR {INT 3 -t-13 =B RMD t 
>P THEN LET t=t-2 
'315 GO TO 230- 
32© FOR 3=3© TO 50 
33S BEEP .©1,3 
34-0 BEEP ,0J, 3 -12 
35© NEXT 3 

35© PRINT RT U , B; OVER 1; ”Y£»tf m 
on the Death Race” 

355 IF hi5 THEN LET h =£■ 

370 PRINT RT U+1-2^(U=20.»,30-LE 
N STR$ SJS 

375 PRINT P.T 0,1; FLR5H 1 h =S 5 ; 
INVERSE 1;”HI-SCORE ";h 
380 IF INKEY$0"" THEN GO TO 38 

0 

385 IF INKEY$="" THEN GO TO 385 
39© GO TO 55 

4.00 FOR f =5© TO 3© STEP -1 
4-1© BEEP -©!,/ 

4.2© BEEP .01, f-12 
4-3© NEXT f 

4-4-5 PRINT RT U +1 -2 * (U =203 , 7j DV 
ER l; "You Lost the .Death Race" 
4-50 PRINT RT INT a, t ; FLASH 1; 
INK 4-; "3f *' 

4-8© GO TO 375 

5©0 DRTR 24-,24- , 4-S , 94- , 18,104,78, 

© 

51© DRTR 0, 34-, 34-, 12, 12,84- . 34- , 0 
52© FOR 3=© TO 1 
53© FOR b=0 TO 7 
54-0 RERD C 

550 POKE USR CHRS C144-+35 +fc, C 
56© NEXT b 
57© NEXT a 
580 RETURN 


CLONE CRAZY 

A single zombie has had itself cloned 19 times and 20 identically 
evil zombies are out to get you. You are trapped within a rect¬ 
angular area of Zombieland where the principal topographical 
features (apart from the zombies, and your poor hapless self) are a 
number of pot-holes. 

The original zombie could be distinguished by two definite 
characteristics, a very keen in-built human tracking device, and a 
hatred of humans which bordered on the manic. As is well known, 
clones are identical to their ancestor in all things, so the 20 little 
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crazies in Zombieland are all after your blood. As well as inheriting 
the clone-ancestor's skills, clone-members also inherit weak¬ 
nesses. The principal weakness of zombie number one was 
extremely bad eyesight which could be the key to your survival. 

You'll recall I mentioned that there were a number of pot-holes 
within the section of Zombieland where you've found yourself. The 
zombies' human tracking devices, while remarkably good for 
latching on to the emanation of homo sapiens, are worse than 
useless when it comes to picking up the presence of pot-holes. 
Lure a zombie into a pot-hole and he's a goner. Your key to survival 
then is to take advantage of the creatures' weak eyesight and lure 
them into pot-holes by getting a pot-hole between you and the 
zombie. Remember, though, you have a score of the little horrors 
to contend with, and while you're trying to lure one into a pot-hole, 
another one or more may creep up on you. 

You can move up, down, right or left, or—if you're feeling 
especially brave—may stand still from time to time. The zombies 
can move vertically, horizontally and diagonally. You start each 
round of CLONE CRAZY with four lives and a complete clone 
complement of 20 zombies. You'll be awarded a point for each 
zombie you lure into a pot-hole and six bonus points if you manage 
to rid the whole area of them. 

Each time you survive, the land will be redrawn, with a new clone 
colony and fewer pot-holes. If you fall down a pot-hole, get eaten 
by a zombie or go off the edge of the land, you lose a life. Four such 
blunders and you are fairly dead. 

The program has a high score feature, so you can look forward to 
spending the next five years or so trying to better your score. You 
move around the screen using the "a" (up), "s" (down), "k" (left) 
and "I" (right) keys. Any other key will stop you moving. 

After seeding the random number generator with line one, an 
array is DIMensioned to hold the clone-members. The variable rand 
is set to 0.1 (line 15) and then action moves to the subroutine 
starting at line 9000. The graphics for the pot-holes, zombie clones 
and you are set up and then, in line 9100, the BORDER is set at 
blue, the PAPER to yellow and the INK colour to black. A 'title page' 
is shown for you, followed by a reminder of which keys do what. 
"Hit any key to start" (line 9200) precedes a PAUSE 0 which holds 
the program until you touch a key. 
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The RETURN in line 9900 sends attention back to line 20, where 
your available lives are set to four (the variable name is men, and 
this is one less than the lives you have left, so when men equals 
zero, you still have one life). The score variable is set to zero and 
other variables which will be needed soon are initialized (line 30). 

The address 23560 is POKEd with zero. This address stores the 
value of the newly-pressed key and POKEing it with zero has the 
effect of 'cleaning out' the key stroke held in there. Line 100 sends 
the program to the subroutine from 1000 which draws out 
Zombieland. The border is drawn in line 1010, and then the double 
loop (i and j) from line 1020 places the pot-holes in place. The 
number of pot-holes depends on the value of the variable rand in 
line 1040, and also on the number generated by RND in that line. 

After returning from this subroutine, line 110 directs attention to 
the subroutine from line 3000 which puts the zombies on the 
screen, counting them (start of line 3050) and keeping track of 
them within the z array (last two parts of 3050). From the 3000 
subroutine we go, via line 120, to the 2000 subroutine which places 
the man (that is, you) on the land. The elaborate series of "IF 
SCREENS ..." lines are checking that the area surrounding the 
starting position is clear. If it was not, you could be pounced on by a 
clone-member or stumble into a pot-hole before the game even got 
underway. 
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If you look at this 'sample run snapshot' from a game, you'll see 
that the number of lives you have left is indicated by the little men 
up in the top right hand corner, above the land. The lines 130 to 150 
put these men in place, line 160 prints out the score at the top left 
of the screen and the high score is printed in the middle of the top 
of the screen by line 170. 

You'll recall that back in line 40, the address 23560 was POKEd 
with a zero, to 'clean it out'. Now, we are expecting that you’re 
touching one of the four action keys ("a", "s", "k", or "I"), and if 
you are, PEEKing into the address 23560 (as occurs in line 200) will 
indicate which key is being pressed. Before the computer acts on 
that information with the lines from 210 to 240, it sets two 
variables (tx and ty) equal to your present position. These variables 
will be used to 'unprint', if needed, in line 450. If you have not 
pressed any of the four keys, line 250 jumps over the routine which 
checks where you are, and reprints you. Line 260 runs a swift 
check to ensure you have not foolishly stumbled off the edge of the 
world, and 270 looks to see that where you intend to move is not 
occupied. If it finds something there, you have had it, and the 
routine starting at line 4000 puts on a dramatic son et lumiere 
display to press home your stupidity. If you pass the test of line 
270, you are reprinted by line 280. 

The routine from lines 300 to 490 is traversed until the value of 
the variable num (incremented in line 400) becomes greater than 
the value of go (which was originally set to equal four in line 30, 
and is altered in line 485). This whole routine contains the 
malevolent intelligence of the clone-members. An associated 
routine, lines 500 to 530, is entered via line 410 if the SCREENS 
test in that line finds a blank. If the number of zombies left (the 
variable left holds this information) drops to zero (that is, you have 
destroyed all of the clones as well as the original one—a fact which 
is ascertained from line 470) you get a bonus score (see lines 
8000 to 8050), and the value of variable rand is decreased (which 
means that you'll get fewer pot-holes, a process which is 
determined in line 1040). 

Once the zombie routine is finished line 305 sends attention 
back to line 200 and the process begins again. The loop from line 
7000 prints out the zombies, complete with a little musical 
accompaniment (lines 7020 and 7040). Once the number of men 
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has fallen to zero (see line 7060), the computer uses the routine 
from line 7070 to alter the high score if needed and to offer the 
option of a new game. If you enter "n" to indicate you do not want a 
new game, then line 7090 sets the INK, BORDER and PAPER to 
start-up condition to make it easier to list the program or to enter 
another one. If you want a new game (and the "y" answer is 
detected, and acted on, in line 7080), the action goes to line 25 
which ensures that your high score (variable hi) is not reset to zero. 

Modifications which you may like to make to the program 
include changing the keys which move you around. To do this, alter 
lines 210 to 240 where the numeric value of the last key entered is 
used (remember address 23560). If you do this, you will also have 
to alter the instructions in lines 9150 to 9180. To generate more or 
fewer pot-holes, change the initial value of the variable rand in lines 
15 and 7063. To modify the change in the number of pot-holes at 
the end of each round of the game, alter line 8006. The user- 
defined characters are "A" (for you), "B" (for the zombie and its 
clone) and "C" (for the pot-holes). 


1 RRNDOHIZE 
23 DIM Z {3S..23 
22. LET hi =S 
25 LET rand =©-2 
23 GO SUB 9030 
25 LET sen =3.- LET store=e 
30 LET left =0: LET i»3X=2S: LET 
ZOSbi e =0: LET y © =4 
4-0 POKE 23560.3 
20-0 GO SUB 2S00 
220 GO SUB 3000 
220 GO SUB 2003 

230 IF sen>2 THEN PRINT RT 0,29 

, 

24.0 IF sen >2 THEN PRINT RT 0, 3© 

250. IF sen >3 THEN PRINT RT 0.. 31 

■ "it-” 

260 PRINT RT 0,3;"SCORE SCOTS 

270 PRINT RT 0.25; 

200 LET a=PHEK 2356© 

205 LET tX =pX: LET ty=pu 
220 IF 3=07 THEN PRINT RT py,p X 
LET py=py—1: GO TO 260 
22© IF 3=225 THEN PRINT RT P y, P 
x;" •• LET py=py+l: GO TO 260 

230. IF 3=137 THEN PRINT RT py.p 
X; ” ■ . LET pX =pX -i: GO TO 26© 
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24-0 IF 3=2©S THEN PRINT RT PM.P 
X; " ”: LET px =px +2: GO TO 260 

250 GO TO 330' 

2S0 IF py. < 2 OR PX >33 OR py<2 OR 
py >23 THEN GO TO 4-000 
270 IF SCREENS tpy.pxJO” ** THE 
N GO TO 5000 ' 

2S0 PRINT RT py,px; 

300 LET nUS=3 

305 IF nuaigo THEN GO TO 230 
323 LET ZOb hi e =ZOS hi e *1 : IF ZOfa 
bit>S 3 X THEN LET ZCSbie=2 
320 IF Z(ZO8faie,13=0 THEN GO TO 
320 

33© LET ZX=Z (ZOffibie.15: LET zy = 
Z aosbie,2) : LET tX=ZX: LET ty=Z 

y 

34-0 LET dx=0. LET dy=0 
35© IF ZX <px THEN LET d.X =2 

360 IF ZX > p X THEN LET dX = -2 

37© IF zy <py THEN LET dU=2 

330 IF ZU >py THEN LET dU=-l 

3S3 LET ZX =ZX -f-dX : LET ZU =Zy +dU 
400 LET nus=nus+l 

4-20 IF SCREEN? fzy ,ZX) =“ THEN 
GO TO 5SS 

420 IF SCREEN? iZU.ZX)=”S" THEN 
GO TO 305 

-43© IF ZX =pX RND ZU=pu THEN GO 
TO 7000 

4-4-0 LET Z CZOfn bi e . 2.1 =© 

450 PRINT RT tu.tx;” ** 

46© LET score=scoreti: PRINT RT 
00; "SCORE : '"score 

470 LET left=left-2: IF left=0 
then GO TO SS80 

430 FOR n=2 TO 2©; BEEP ©,02.0: 
NEXT n 

435 LET go =1+INT (teft/5) 

4S0 GO TO 3S5 

530 PRINT RT tu.tx;" ** 

520 PRINT RT zy,ZX; FLfiSH 2. IN 
K 2;"S" 

520 LET ZfZOSfcie.il =ZX: LET ZtZ 
OSfci e - 2 3 =ZU 
525 BEEP 0,02.. 30-le ft 
530 GO TO 305 
2300 PRPER 6. CLS 

2020 PLOT 4,4; DRRU 246,0: DRRU 
3,259; DRRU -248,0. DRRU 0,-259 
2020 FOR i=2 TO 2© 

2330 FOR J =1 TO 30- 

2040 IF RND>rand THEN GO TG 1060 
2050 PRINT RT i.j; INK 
i®60 NEXT J: NEXT i 
2200 RETURN 
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912© PRINT RT 

913© PRINT RT 
l July I9S2” 
914-© PRINT RT 
915S PRINT RT 
9150- PRINT RT 
9170 PRINT RT 
9130 PRINT RT 
9190 PRINT RT 
y to stop" 
9200 PRINT RT 
to start" 

9210 PRUSE 0 
990© RETURN 


I. . 13; OUER i; ”_ 

4,4; ‘’ Mile O'Nei 

5,4-; "Keys. ” 

2.0,4-; ”R=UP ” 

II, 4-; "S=do»n " 
12,4.; ”K= le f t " 

13,4-, "L=right‘‘ 
15,5;"any other X 

13,6;"Hit any Key 
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Board Games 

PIRANDELLO 

Based on the game Reversi which was invented in the 1880's, the 
computer game PIRANDELLO is often known as'Othello'. Reversi 
is played on an eight by eight board, such as a chess board. In 
Reversi, players could place their first two pieces on any of the 
central four squares which were free. In PIRANDELLO, the 
position of the first four squares is fixed and play starts with these 
already in place, as you'll see when you run it. 

After this, moves follow one simple rule: each new piece must 
adjoin an opponent's piece or pieces, and one of the player's own 
pieces must be at the other end of the line of the opponent's 
pieces. All the opponent's pieces then turn into the player's pieces. 
The line of pieces can be in any direction, whether horizontal, 
vertical or diagonal. If the player's piece completes a line in more 
than one direction, then the pieces in each of the lines change. The 
aim of the game is to convert as many pieces as possible into your 
own, so that when the board is full or when there are no more legal 
moves, you have the greater number of pieces on the board. The 
winner is decided simply by counting the pieces on the board. 

To show how the pieces change in PIRANDELLO, imagine you 
were X's, and the computer was 0's. There may be a line such as 
X000 and if you placed your piece at the end (so it looked like 
X000X) the 0's would change (leaving the line as XXXXX). 

The game depends more on knowledge of strong positions than 
on attempting to convert as many pieces as possible in each move. 
The strongest positions are the four corners for a piece in either of 
these, controls a straight line across, down and diagonally. By 
contrast, the squares one in from the corner are probably the 
weakest. Other strong squares include those surrounding the four 
which are in position automatically at the start of the game. 

The Spectrum has a very good knowledge of the relative value of 
the various positions on the board. It is not the best strategy 
possible to depend only on position. However, knowledge of prime 
positions greatly outweighs any other consideration and the 
computer can rapidly choose the best move possible from the legal 
moves available. Therefore, this program relies only on knowledge 
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of strong positions and thus makes a quick and (most of the time) 
intelligent reply to any move you may make, thus providing a rapid 
and challenging game. 

Line 30 sends action to the subroutine from 4000 which prints up 
the name of the program, then waits until a key is pressed for the 
game itself to begin. The BORDER is set to 5 in this section (line 
4000), the PAPER to 2 and the INK to 9 (an INK colour of 9 
automatically selects the INK colour for maximum contrast). The 
word PIRANDELLO is printed all the way down the screen in a 
variety of colours, complete with musical accompaniment. 
"Please stand by" appears, flashing, near the top of the screen, 
while arrays are DIMensioned and variables are initialized. 

The initialization routine begins at line 5000. Three arrays are 
DIMensioned. The A array (line 5010) holds the positions on that 
board, arranged in order of merit. The D array will be used, while 
the game is under way, to hold the locations of pieces which must 
be changed from one player's to the other. 

The loops from 5030 to 5070 fill the A array with character 146's 
(that is, with the CODE for a user-defined square). These will be 
used when the board is printed, to indicate empty positions. The 
next loop (5080 to 5110) reads the information from DATA 
statements 5320 and 5330 into the E array. If you look at the two 
DATA statements, you'll see that they contain the numbers from 
12 to 89 in an apparently random order. This order is not, despite 
appearances, random. Rather, it represents the programmer's idea 
of the relative value of the positions on the board. Square 19, for 
example, is one of the most valuable, so the computer will always 
check that for a possible move before going anywhere else. The 
least valuable squares are those near the end of DATA statement 
5330; 28, 78 and 23. 

The next loop (5120 to 5150) fills the D array with the numbers in 
DATA line 5340 (1,9,10,11, -1 ,-9,-10,-11). These represent the 
'displacements' from a particular position on the board and are 
used when the computer is checking pieces to see if they need to 
be changed after a move. 

Lines 5160 and 5170 put the opening pieces in position. Then a 
move marker, which indicates which player's turn it is to move, is 
set to 145 in line 5180 to show the computer will move first. 

Once this has been done, the Spectrum gets to work to define 
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the graphics. There are three that are used: a square for an empty 
position, a diamond (printed in red) for a computer piece, and a 
diagonal line (printed in white) for one of your pieces. The DATA for 
the graphics is held in lines 5350 to 5370, with the "Z" at the end of 
line 5370 triggering the change of BORDER colour, the clearing of 
the screen and the move back to line 400 at the end of line 5270. 

After the board has been printed (lines 400 to 490) the move 
marker is checked. If it has the value 145, the computer knows that 
it is time for it to move. If not, the computer changes Y to 144 (so it 
will know next time Y is checked, that it is now its move), and line 
530 accepts the player's move as two numbers, the one down the 
side, followed by that across the top. The move is entered as a 
single, two digit number (such as 25, or 81). Moves below 11 and 
above 88 will be rejected. 

If you find you are unable to move you enter a 0 to indicate this, 
and the computer will go to line 100 to have its move. (If the 
computer is unable to move, see line 350, it will check to see [line 
380] if you have previously indicated your inability to move and if it 
finds you have, sends action to the end of game routine from line 
1000 which counts the pieces, and announces who has won.) Line 
560 makes sure the move is within the numerical limits (11 to 88) 
and that the square into which you intend to move is blank (that is, it 
contains a 146). 

Once the move has been accepted as legal, the computer 
moves to the section of the program beginning at line 160 which 
uses the displacement values held within the E array to check all 
pieces for changes (that is, for swapping into the opponent's 
pieces). At the end of this routine, which runs from lines 160 to 
320, the move marker is checked again. If it is found to equal 144, 
or the print board flag (J, initialized in line 160 and changed when 
needed in line 290) equals one, then the computer goes to line 
400 where the board is printed again. If all squares have not been 
checked (that is, K in line 340 does not equal 60) then the computer 
goes to line 130 to continue its search. This line, of course, will 
never be reached when the player has just moved. If line 350 is 
reached, the "I pass" message is displayed. 

Line 500 checks the value of Y, and if it is found to be 144, knows 
it is the computer’s turn to move. Therefore, the computer goes 
back to line 100 where it looks for a move (lines 100 to 150, plus 
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340). Note that here the computer is using the information 
gathered from the DATA statements to determine the order in 
which the squares should be checked. 

You'll find PIRANDELLO a challenging game and the Spectrum a 
worthwhile opponent. Once you've got the game under control, 
you can change the user-defined graphics and/or you can 
experiment with the order of the numbers within the DATA 
statements to see if you can improve the computer's strategy. 
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1 © REM Pirands t la 

30 GO TO 4830 
10© LET Y = 14-5 
11© LET Z = 24-4- 
120 LET K=© 

130 LET K=K+2 

14-© LET B=EiK) _ „ 

130 IF R CBJ < >14-6 THEM GO lO 34-0 

130 LET 0=0 

IT© FOR X=2 TO 3 

13© LET N=D sX) 

10© LET E=© 

200 LET F=B 

21© XF R (F+H> < >Y THEM GO TO 25© 
220 LET E=2 
23© LET F=F+N 
24-0 GO TO 2 23 

25© XF fl(FtN) 02 THEN GO TO 310 
26© XF E=0 THEN GO TO 31© 

27© FOR R=B TO F STEP N 

230 LET fi CRi =Z 

290 LET 0=1 

300 NEXT R 

310 NEXT X 

320 IF Y = 24-4- THEN GO TO 4-00 
330 XF 0 = 1 THEN GO TO 4-30 
34-© XF K < > 6© THEN GO TO 230 
350 XF GO© THEN PRINT RT 0.-0; 
FLRSH i; INK 2; PfiPER 7;"X pSSS. 
. *• : BEEP 1,2: BEEP 1,2. BEEP 1,1 
PRINT RT ©,©;" 
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330 XF G=0 THEN GO TO 10©0 
4-00 PRINT RT 6,12: BRIGHT 1; "12 
345678” 

4-10 BEEP 0.05,32: BEEP 0.05,12: 

BEEP 0.05,32 

4-2© FOR R=2 TO 3 

4-3© PRINT TPS I©; BRTGHT 2; INK 
6; R; 

4-4-0 FOR 6=2 TO 9 

4-4-5 LET U=Rtf)il0+B) : BEEP 0,003 
, i U = 14-4-i +5©5- » U = 14-5* -6>3* (0 = 14-6.1 
4-5© LET R=2* (14 = 14-4-) +7+ (U = 24-5.1 + 4- 
* (0 = 14-6.1 

4-55 PRINT BRIGHT 1; INK R; CHR$ 

UJ) ; 

4-60 NEXT B 

4-7© PRINT BRIGHT 2; INK 6; fl 
4-30 NEXT R 

4-90 PRINT TRB 12; INK 6; BRIGHT 
l; "1234-5678” 

50© IF Y = 14-4- THEN GO TO 200 
510 LET Y = 14-4- 
52© LET Z = 14-S 

530 INPUT INK 2; PRPER S: FLRSH 
l; bright 2,” Please enter you 
r Move ; G 

54-0 XF G=0 THEN GO TO IB© 

55© LET B=G+2 

560 XF B < 22 OR B> 33 OR flfSl <>14 
6 THEN GO TO 530 
590 GO TO 260 
2©00 LET C=B 
1010 LET H=B 
1020 FOR R=2 TO 100 

1030 XF R (R.i =24-4- THEN LET 0=0 + 1 
104-0 XF R (R3 =24-5 THEM LET H=H + 1 

1050 NEXT R 

1055 PRINT RT 13,©; FLRSH 2; BRI 
GHT 1; INK 2; PRPER 7;” Final s 
cores. ” , "spect rum > **; C - , "Hubs an > 

" : H , 

106© XF C>H THEN PRINT RT 0,0; B 
RIGHT 2; FLRSH 1; INK 4-;”I Win,. 
. thanis for a good gams": GO TO 
106© 

2070 IF C <H THEN PRINT RT 0,0; 
RIGHT i; FLRSH 1; INK 4;"YOU »i 
. . thanks for a good.gaae": SO T 
107© 

103© IF C=H THEN PRINT RT 0,0; 
RIGHT 2; FLRSH 1; INK 4-; "Its a 
raw, thanks for the gase": GO TO 
2030 

1090 STOP 

4000 BORDER 5: PfiPER 2: INK 9: C 

LS 



IDcO (Clti 
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4.01S FOR R = 1 TO S2: PRINT TRB fi; 

INK fi. 5+3; 'Pi rande Us“ 

4-02© SEEP B.@08,fi: BEEP 0.00B,fi* 
2: NEXT R 

4-030 PRINT fiT 5,5; FLfiSH I; INK 
7; prper ” Please stand fay ** 
5000 PAPER 0. INK; 9 
5010 DIM fit100): DIM Et63i 
302© DIM D (8) 

503© FOR R=i TO 8 
504-0 FOR B=2 TO 9 
505© SET R (H*10+B) =14© 

506© NEXT B 

5S70 NEXT R 

50S© FOR R=2 TO 60 

5000 RERD B 

510© LET E(fi)=B 

511© NEXT R 

512© FOR R = i TO S 

513© RERD B 

514-0 LET D(R)=B 

5150 NEXT R 

5160 LET fi (45) =14-4-: LET fi C4-6) =14- 
5 

517© LET fi(56) =14-4: LET fi (55) =14 
5 

513© LET V = 144 

5270 RERD R$. IF fi*="Z" THEN BOR 

DER 0. C-LS : GO TO 400 

5230 FOR C=e TO 7 

5290 RERD B. POKE USR fi$+C,B 

5330 NEXT C 

5310 GO TO 5270 

532© DRTfi IS,31,82,12.52,17,32,6 
7,69,14,39,84,64,67,37,34,49.15, 
59,35,16,52,42,3©,©5,54,6©,44,35 
,57,36,47 

5330 DRTfi 63,43,53,76,24,27,38,2 
5,74,77,43,26,63,33,53,75,72,13, 
29,18.33,22,83,79,73,23,78,23 
534© DRTfi 1,9,10,11, -1,-9,-10,-1 
1 

535© DRTfi "fi".0,24,60,126,126,©0 
,24,© 

536© DfiTfi "B”,0,4,14,28,56,112,3 

2 ,© 

537© DfiTfi "C",255,129,129.129,12 
9,129,129,255, "Z" 

CHECKERS 

Challenge your Spectrum now to CHECKERS, one of the world's 
most popular board games and second only to Chess. Some 
games historians believe that CHECKERS (or 'Draughts') was in 
fact a forerunner of chess. Certainly, checker-like games were 
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played in ancient Egypt, Greece and Rome. The game evolved 
through the centuries and reached its present form in the mid¬ 
seventeenth century. 

Many regional variations exist but the game played by your 
computer in this case is very much the standard game, rather than 
an exotic variation. In the standard game CHECKERS is played 
between two opponents on alternate squares of the chess board, 
generally on the black squares. To make it easier to see on the 
screen (and on screen dumps if you want to use the provision 
within the program to COPY the contents of the screen from time 
to time) we will play in this program on the white squares. 

Each side starts with 12 pieces. In this version, you are the small 
x's, the computer is the small o's (but there is no reason why you 
should not modify the program, once you get it running, to use 
graphics which you have defined) and the computer starts at the 
top of the screen playing down, while you start at the bottom. 

You can only move diagonally, that is, onto white squares. If 
there is an enemy piece on the diagonal immediately in front of you 
and a vacant square lies behind this one on the diagonal, you can 
capture the piece by jumping over the enemy piece (removing it 
from the board) in order to land in the vacant square beyond. More 
than one piece may be captured at a time if—when landing on a 
vacant square after a capture—a further capture is possible from 
that point. 

Some rules of CHECKERS include a provision with the 
mysterious name of 'huffing' which states that if a capture is 
possible, it must be made. There is no huffing, as such, in this 
game, but the computer will always capture when it can, so you 
should play fair and make a capture if one can be made. 

The point of the game is to wipe out all the opponent's pieces, or 
make it impossible for him or her to move. In this program the 
Spectrum will tend to play to the death, but has the ability to judge 
when it has been beaten, at which point it will concede the game. 
You can give up at any point, by entering 99 when you are asked for 
your move. Do this, and the Spectrum will graciously accept your 
wish to concede. 

Once you get a piece right across the board to the back row, the 
piece is 'crowned' and becomes a 'king'. This is shown in this 
program by the pieces changing into new characters. You can 
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easily alter these to the characters of your choice, as will be 
explained shortly. A king has double the mobility of an ordinary 
piece. That is, it can move backwards as well as forwards, so it 
becomes quite a formidable piece. Note that if you land on the back 
row after a capture, you cannot at that moment convert your piece 
into a king and continue a sequence of captures 'backwards'. Your 
piece cannot work as a king until the following move. The 
computer knows this and acknowledges it by waiting a move 
before it changes its own piece into a king. 

You'll find the computer plays this game fairly quickly and with a 
degree of intelligence and foresight which means it will give you a 
fair run for your money. To add interest, the computer prints up on 
the screen each move as it considers it, sounding a 'beep' if it 
comes across a move it considers worthwhile. The computer 
searches through the board, square by square, from the top left 
hand corner along the top, then along the next row from left to right 
and so on to the end. When it finds a piece of its own, it checks first 
to see if a capture can be made. If it finds a capture, it makes it 
without further ado, reprints the board, and allows you to enter 
your reply. While it is searching for moves, it is also looking for 'safe 
moves', using a simple search technique to find potential moves 
which will not expose it to danger. It also has some facility for 
selecting moves which protect pieces which are already in danger. 

After having gone through the board and stored each of these 
safe moves in an array, it checks to see if—by a single move—it 
can promote one of its pieces to a king. If such a move is possible, 
because the computer gives this a higher priority than just making a 
safe move, the 'make a king' move is made. If a piece cannot be 
moved on to the back row for promotion, the computer chooses at 
random from the safe moves it has stored in an array. By choosing 
at random from moves which it judges of equal worth, the 
computer can play a series of games without repeating itself, even 
if you try to force it into a game identical to one which it has already 
played. 

If its search of the board has revealed that no safe move exists, it 
chooses a piece at random and moves that. Such moves will occur 
only rarely in the early and middle stages of a game. If it has only a 
few pieces left on the board, it may consider its position is 
hopeless and concede you the victory. 
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As I said, this program plays swiftly because for most moves it 
only has to partially search through the board, or—at worst— 
search through the entire board only once. The speed of response 
is delayed by the lines which print out the moves which the 
computer is considering. However, these add so much interest to 
the game, I consider they are worth retaining although they slow it 
down somewhat. If you prefer a program which plays at maximum 
speed (and this is very fast indeed) you can delete certain lines, 
which I'll indicate to you as I go through the program. There are also 
a few 'comment' lines, such as "Good mover", or "Got you!" 
which come up from time to time. These slow things down slightly, 
and may well be deleted. You may find, as have several people who 
have used this program, that they like both versions and after 
entering and saving the complete program, delete the extra 
printout lines to have a second version which works at maximum 
speed. Then they can choose which version they wish to play. 

After the random number generator is seeded in line 50, action 
goes to the subroutine starting at line 1070 where the variables are 
initialized. If you turn to this section, you'll see that it begins by 
setting the PAPER and BORDER to blue and the INK to yellow, 
before the screen is cleared to turn on the PAPER colour. In this, as 
in all other programs in this book, feel free to change the colours to 
suit your own taste or to the particular combinations best suited to 
your television. The words "Stand by" appear near the top of the 
screen during the fairly short initialization process. (You may 
consider including such a line in any program if there is a longer 
than usual initialization process, to reassure the user that some¬ 
thing is actually happening after RUN and ENTER are pressed.) 

Line 1080 assigns values to the pieces. The names of the 
variables are straightforward (C for computer piece; H for human; 
CK for computer king; HK for human king; E for an empty square; 
and B for a black square). They are assigned in this line and then the 
whole program refers to the variable by name. This was done so 
you could, at will, change the characters used to represent the 
pieces simply by changing this line. If you wished, for example, to 
add user-defined graphics, all you'd need to do would be to use 144 
for H (144 is the CODE of user-defined graphic one, available in the 
graphic mode on the A key), 145 for C, and so on. 

Line 1090 sets the variable OF to represent 'off the board'. The 
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computer has, 'in its head', an invisible row of dummy squares 
around the board so that it knows where the edge of the board is 
and does not attempt to boldly capture where no piece has been 
before. 

Once OF has been defined, the Q array (which holds the pieces) 
is DIMensioned and each element of the array is filled with the 
dummy value. The next loop (1110 to 1130) uses the DATA in lines 
1140 to 1230 to fill the squares on the board with their required 
values. All elements of the Q array not assigned in this loop will 
have, of course, a value of -99, so the computer knows they are 
areas into which it must not stray. 

Line 1240 is a loop which fills the N array (DIMensioned back in 
1090) with numbers which represent the possible moves from any 
square for a non-capture move. The computer knows that doubling 
these numbers, when needed, will give it a possible capture move. 
In line 1260 the variables which count the number of pieces of the 
opposing player that have been captured are initialized at zero, CO 
for the computer, HU for the human. 

On returning from 1260 to 90 we see, in the REM statement, the 
words "Delete next line to stop Spectrum having first move". If 
you wish to have the opening move, simply get rid of line 100. You 
do not need to change any other part of the program. The Spectrum 
is not the strongest Checkers player in the world, so giving it the 
advantage of the opening move is the least you can do. The 
program is called within the loop of subroutines from 110 to 140, 
with line 150 starting the cycle again. The various subroutines carry 
out the vital parts of the program, in turn, as follows: 

680 prints out the board 

850 accepts the player move 

680 reprints the board after the player move 

160 starts the computer move search 

We'll start by looking at the computer search process because it 
is the most interesting and important section of the program. Line 
160 DIMensions the S array, which will be used to store the safe 
moves discovered by the computer while it is looking for captures. 
SC, the 'safe move counter', is set to zero in line 170, where A 
(which is used to indicate the square being considered) is set to 89, 
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one more than the element 88, which holds the top left hand corner 
square of the board. Line 180 decrements A by one, to indicate the 
top left hand square, and line 190 checks to see if this square 
contains either a computer ordinary piece (that is, it checks to see if 
that element of the array contains the value C) or a computer king 
(value CK). Line 200 sets B (which indicates which potential move 
from that spot is being considered), to zero. If A is less than 29, the 
computer knows it is on the human's back row and can only move 
upward (values of 3 and 4 for B indicate upward moves), so does 
not bother considering the moves when B is 1 and 2. 

Line 210 adds one to B (which then becomes 1, or 3 if a piece on 
the back row is being considered) and 220 sets M (which 
throughout the procedure defines the square the computer is 
considering moving to, while A is the square the computer is 
considering moving from) to A plus the element of N array 
indicated by the value of B. If M is greater than 88 or less than 11 
then the computer knows the piece is off the board and need not 
be further considered. Line 240 is one of those which can be 
deleted if you want to go for maximum speed. It prints up the move 
which is being considered. 

Our next line finds a capture. If the square it is considering 
moving to (M) contains a human (H) or a human king (HK) and the 
square beyond is empty (E) then the computer knows it can 
capture, and therefore directs action to line 320 where the jubilant 
message "Got you ..." is flashed on the screen. Again, if you're 
going for maximum speed, delete lines 330,340 and 350, as these 
are only used for showing off. 

Back in the main body of the computer move section of our 
program, the next line (260) conducts the simple search I 
mentioned, looking beyond the square into which it intends to 
move to see whether, by so doing, it would be inviting the capture 
of the piece it is moving, or would—by moving that piece—expose 
another piece to danger. If a piece passes the long series of IF 
statement tests in this line, then the Spectrum goes to the 
subroutine starting from line 470. The computer can store up to ten 
safe moves (as the array which holds them contains just ten 
elements and ten has been found to be more than adequate in 
most circumstances). The safe move counter, SC, which has been 
set to equal zero back in line 170, is incremented by one if it is less 







than ten. Line 480, another one you can delete for maximum 
speed, prints up "Safe move ... to .. " and sounds a BEEP to 
highlight the safe move. 

Line 490 is rather interesting. It converts both the 'from' (A) and 
'to' (M) squares into a single, unique number (which is placed in the 
next available element of the S array) so that later, if needed, it can 
be decoded. Line 490 returns to the main search section of the 
program, but while we are at this point, we'll have a look at how the 
safe move is made. If no capture has been made, the computer 
moves to line 500. If it finds SC equals zero, then it knows no safe 
moves have been found and goes to line 550 to select a move at 
random. If SC is greater than zero, the program 'falls through' to the 
next line and one of the encoded numbers is selected from the S 
array, as XC in line 510. The 'from' square (A) is recaptured from XC 
in line 520, and the 'to' square (M) in line 530. Line 540 sends the 
program to 650, where the move is to be made. 

Returning to the first section of the program, we come to line 
270. Here B is incremented. Elements one and two of the N array 
contain moves which can be made by any piece (except one on the 
bottom row) and elements three and four contain king-only moves. 
If B, the counter which selects the elements of the N array which 
will be used for the move, is found to be lower than its maximum 
(two for an ordinary piece, four for a computer king) then the 
program returns to line 210 where the counter, B, is incremented, 
and the search continues. Line 280 checks to see if every square 
on the board has been checked and, if not, returns to line 180 
where the square counter. A, is decremented by one, and the 
search continues. If, however, all the moves have been used up 
(that is, A is found to be not greater than eleven when tested in 280) 
the program continues to the next two lines, which check for a 
potential king. A flag, FL, is set equal to zero and the computer 
checks the elements of the array which represent the squares on 
the row before the one on which computer kings are made. If it 
finds a piece of its own there, it sends the program to the 
subroutine from line 1270. If this subroutine finds a move which 
will make a king, then (in the subroutine), the FL is set to one and 
this sends the program to line 650, to make the actual move. 

If such a move is not possible, line 310 jumps over the section 
which makes the capture move (which we'll be returning to 
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shortly) and goes to line 500. Now, keep in mind that the computer 
follows a strict hierarchy of checks: 

• can I capture, and if so, can I capture again? 

• can I make a king? 

• can I make a move which does not place the moved piece 
in danger or expose another piece to danger? 

• can I make a legal move? 

If the answer to any of these questions is 'yes', then the move is 
made and the board reprinted in readiness for the human move. If 
the answer to the first question is 'no', then the second question is 
asked . . . and so on. If the answerto the final question is'no', then 
the computer concedes the game. (There is one other question, 
asked every time the board is reprinted, which relates to how many 
pieces the two players have captured. If it finds that either player 
has taken 12 of the opponent's pieces, the game goes to a routine 
acknowledging the win and terminates the game. This question, 
which does not really fit into our hierarchy of moves, is mentioned 
here for completeness, so you can more easily understand the way 
the computer arrives at a move.) This kind of ordering of move 
checks is how most intelligent game-playing programs work, from 
arcade-type moving graphics games to chess. 

If the computer has reached line 500, then the answerto the first 
two questions has been 'no'. To ask the third question ('can I make 
a safe move?') the computer simply has to refer to the value of SC 
(the safe move counter). If it is zero, it has not found any moves 
worth labelling as safe, so the answer to the question is 'no'. We 
have already examined the safe move system, so we'll now look at 
the part of the program which the computer accesses as its 'court 
of last resort'—the check for a move chosen at random, which 
begins at line 550. 

Here the variable SC is used again, to save having to initialize 
another variable. It will, after all, be reset to zero (by line 170) before 
the next move and can safely be used for another purpose at this 
point. Line 550 adds one to the value of SC and chooses a square at 







random between one and 88. If this square does not contain either 

Hne S U wh, P ' eC f T 3 C ° mputer kin 9 (line 56 0) then action goes to 
line 630 where, if less than 300 numbers have been chosen in this 
section, action is directed back to line 550 to try again 
However if the chosen square does hold either a C or a CK then 
the routine from lines 570 to 620 looks to see if this piece can 
the art ^ m ° Ve ' S !? Und ' line 610 sends the program to 650 where 

numbers hTvtbe^'n h " "5 m ° Ve haS been found ' and 30 ® 
the^ame with !he^40° Sen 3 ' random ‘ the computer will concede 

Before we have a look at the section which allows the human to 
sec ,nn a h m ° Ve ' ^ UP the pr0 9 ram slightly to"he 

has been m^T'T 1 370 ' This line is accessed a capture 
score (CoTh l llne haS incremente d the computer's 

wHrh } bV ° ne b6f0re " ne 370 calls the board print subroutine 
Tourse u® m ° Ved Pi ® C6 ' the new S Pectrum score and-of 

You'N r^all th t 6re the C ° mpUter piece used to be 

Mthesouamit W8S SqU8re the computer m °ved from, and 
M the square it was moving to. A is now reset to equal the square 

the computer has moved to, and the lines from 390 to 460 check to 
th ®‘ f a furt . her jump or jomps can be made, and if so it makes 

rephntedfto'see^' ,and aftw ,he board has been 

reprinted) to see if a further capture can be made When the 

sequence of captures is over, the computer will hand over the 
program to the human to make his or her move 
The human move section is simple. You move by specifvino the 
square from which you want to move by indicating the number of 
the square down the side and then the number across the top 
entenng both digits at once (such as "31"). Then, after pressing 
ENTER, you enter the two digits referring to the square to whirh 
you want to move. The move will then be made the bo^rS 
aoain If ^ lf V ° U ^ Captured ' Y°u'll be asked if you can jump 
vou'n' h V0U H 7' 6 COmputerwil1 thinl < of a move Say yes and 
you II be asked for a new 'to' square (because, of course tSe 
computer already knows your 'from' square, as you just moved 

wh T e h r rRS°lm hiCh a t CC6PtS the hUman m0Ve starts at line 810 

termed Stateme " ts P oint °ot that you enter 99 if you wish to 
terminate the game. Entering a "1'' will tell the computer to cop^ 
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the screen to the printer. After this copy, you'll be asked again to 
enter your move. After the move has been made within the array 
which holds the pieces (in line 910) two loops (920 to 950) check to 
see if either player's pieces have reached king status and, if they 
have, changes their symbols accordingly. You may recall that I 
mentioned earlier that a piece cannot move as a king until the move 
after the one in which it became a king. The computer pieces are 
promoted here because this (being the middle of the human move 
section) is safely away from the computer move generation 
section, and so there is no chance the computer will try to cheat by 
moving a newly-created king. We assume, by the way, that 
although a human piece is crowned king immediately, that the 
human will not cheat and try to move it. There's nothing in the 
program to stop you cheating but it rather destroys the point of it all 
if you do, because the Spectrum would never dream of stooping to 
cheat. 

Now at line 960, the computer checks the difference of the 
human's 'from' and 'to' squares. If this difference is less than 12, 
then the human has not made a capturing jump, so the computer 
returns to the main loop at the beginning of the program to reprint 
the board prior to the computer selecting its next move. However, 
if this difference is not less than 12, then a capture has been made, 
and the computer will—two times out of three—acknowledge this 
capture with a comment generated by the lines 970 to 990. 
Comment or no, a capture will be signalled by a rising tone 
produced by line 995, the human score (HU) will be incremented by 
line 1000, the captured square will be 'emptied' (by the second 
statement in line 1000) and the board reprinted before (in line 1030) 
the human is given the chance to jump again. If not, line 1040 
returns to the main loop, avoiding line 1060 which sets the old 'to' 
square as the new 'from' square, and sends the program to line 
860 to accept the new 'to' destination. 

We have already looked at the rest of the program, which 
controls initialization and the 'can I make a king?' routine. The only 
part of the program we have not looked at and which is self- 
explanatory, is that section from 680 to 780 which prints out the 
board after each move. Note line 770 which side-steps the return 
to the main program loop if either the human (HU) or the computer 
(CO) counters equal 12. 
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Here is the board at the start of the game, and a little later, when 
the Spectrum has the upper hand: 

Spectrum: @ Human: © 

12345678 



12345673 


Spectrum: l Human.- © 
12345678 



238 IF M>86 OR Hill THEN GO TO 

as© 

24.0 IF I03-INT (H/10) < THEN PR 
INT RT 0,8; Rj " to “;M;”7” 

25© IF (©(H3=H OR O(M3=HK3 fiND 
8 !'M +N 103 ) =E THEN GO TO 320 

260 IF 8 (M) =E THEN IF OSH-11) i 
>H ftND BSM-ll) OHK) THEN IF SOSM 
-9 3 <>H RND © CM—93 < >HK3 RND ©(M+9 
3 < >HK THEN IF ( (Qlr1 +223 < >HK OR Q 
i'M + 183 <>HK.) RND C8CM+9) OC OR ©( 
H+93 0CK OR ©(M+113=0 OR GfM-f-113 
= CK3 3 RND Q SM + 11) < >HK THEN GO SU 
B 478 

27© IF E<2 OR (©<R3=CK RND B{43 

THEN GO TO 210 

2S0 IF R>11 THEN GO TO 160 

290 LET FL =0: IF 0(223 =0 OR 0(2 
43=C OR 0(263 =0 OR 0(263 =0 THn.N 
GO SUB 1270 

300 IF FL=1 THEN GO TO 650 

310 GO TO 500 

328>LET O (M-J-N (S3 3 =G (P.3 : LET O IH 
>=E: LET O (R3 =E 

330 PRINT P.T 0.0; FLASH 1; INK 
3;"*********=**************£**** 


340 FOR T = — 13 TO 55 
P 00© , T : NEXT T 

35© PRINT RT 0,0; IN 
7; FLASH l; BRIGHT i; 

you. 

PRINT RT ©.. ©; " 


STEP 3: BEE 

SK 2-; PAPER 
GO t 

PRUSE 12©: 


10 

5© 

SO 

9© 


100 
110 
120 
130 
14© 
150 
160 
170 
180 
19© 
N GO 
200 
=2 


REM Spectrum Checkers 

RANDOMIZE 

GO SUB 1070 

REM Delete next line tc 
stop Spsctru m having 
first moire 
GO TO 13© 

GO SUB 660 
GO SUB 850 
GO SUB 680 
GO SUB IS© 

GO TO 11© 

DIM S(l©3 

LET SC=@: LET R=89 
LET R=R-1 

IF O(R3 i >C RND O(R3 <>CK THE 
TO 28© 

LET B=0; IF f) <29 THEN LET B 


LET 00=004-1 
GO SUB 68© 

LET fi=H+N(B3 
LET B=B 
LET B=E+1 

IF LR+2*N (B3 <11 OR R+SfHIB) 
RND B<4 THEN GO TO 40© 

LET M=R+N(B3 

IF 0(M3=C RND B>3 THEN RETU 

IF (O (M3 =H OR ©(M3 =HK3 RND 
©(M+N CB3 3 =E THEN GO TO 32© 

45© IF B <2 OR (© (R3 =CK RNC> B<43 
THEN GO TO 48© 

46© RETURN 

47© IF SC <10 THEN LET SC = SO-S-l 
48© PRINT RT ©,©; INVERSE i;"5a 
fe move: “;R;” to “;M: BEEP 0,5, 
SC : PRINT RT ' © , © ; “ 

490 LET S (SC-3 =108i.R+B+£0: RET UR 
N 


36® 
37© 
38© 
39© 
4©© 
41© 
>88 3 
420 
430 
RN 
44© 
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g©© IF 50=© THEN GO TO 55© 
l |T XC = INT (RND-S-5C) +1 
52© LET fi=IMT CS (XC) /10@.s 

1 JI 5 l T TO = gsa 15 l * C1 - lae *"- 20 ) 

II? , I - ET SC=SC + 1; LET R=INT CRND 


HE 


*S8)+ 1 

n 5 Io IS lag’ !>c RND etR> <>CK 

570 LET B=0 
58© LET B=B+1 
59© LEl M=R+N(B) 
e .S@ e 1F M>8e OR Mill THEN GO TO 

l x ® XF ©CMi=E THEN GO TO 65© 

® *2 OR 0(R3=CK RND B<4 T 
HEN GO TO 5S© 

530 IF 50<3©0 THEN GO TO 55© 

£.4-© PRiNT RT ©,©;"! concede the 
game": STOP 

65© LET O (H) =© (ft) : LET © {RJ =E 
£ 6 ® PRINT RT 0,©; "Fro® " ; R; " to 

_ - F g R T = 3 ® TO -30 STEP -2. R 

s-EP .03S,T: NEXT T: PR I NT RT 6,0 

670 RETURN 

6S© PRINT HT 4-.,2; BRIGHT 1; INK 
9 truis. CO; " Hussan.- •• 

7 1® rr 1HT TRB 5; BRIGHT 1; INK 
6, 12s45b78' : 

72© OR F =SS TO I© STEP -ip 
73© PRINT TRB 5; BRIGHT i.?P.-10, 

FiGf;T°NExfV° PR2NT °' f 

7S© PRINT F/I0: NEXT F 
= TRB 6; BRIGHT 1; INK 

o ± ==. ©ij-bb ,70*- 

0 7 ;®> XF 60=12 OR HU=12 THEN GO T 
730 RETURN 

7 ~ e XF HU=12 THEN PRINT ST &,8j 
You have won -..Than its for the”, 
.."game".- STOP * 

S0© IF 00=12 THEN PRINT RT 0,0: 
I have won,.,Thanks For the i 
game": stop '' 

SIS REM 99 TO CONCEDE 
S20 REM 1 TO COPY BORRD 
850 INPUT FLASH 1;" Ffoe^ "R 
SB© IF R =99 THEN PRINT RT ©V©; " 
ThanKs for the gass": STOP 
0 S7© IF R=I THEN COPY : GO TO 85 

900 INPUT FLASH 1;(RJ;" To 7 *•; 
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y±© LET ©tB)=©{R); LET ©{fi>=E 
92© FOR T = 11 TO 17: IF FHT^=C T 
HEN LET QIT )=CK 
930 NEXT T 

240 FOR T =82 TO 38: IF ©iT) =H T 
HEN LET © (T )=HK 
95© NEXT T 

96© IF ASS (R—B.> <12 THEN RETURN 


970 LET TY=RND 

980 IF TY <0.3 THEN PRINT RT 0,0 
;"Good rnove" 

99© IF TY > ©«7 THEN PRINT RT 0,8 
;"Got me!" 

995 FOR T = —20 TO -1 STEP 0,7: B 
EEP ,@1,T: NEXT T: PRINT RT 0,0; 


1000 LET HU=HU+1: LET ©MR+B>X2) 
=E: GO SUB 680 

101© FOR T=82 TO 88: IF ©CTJ=H T 
HEN LET © i'T.i =HK 
1@2© NEXT T 

1©3© INPUT FLRSH 1;"Can you jump 
again? (Y sN) ";R $ 

184© IF R$<>"Y" RND P$<>"y" THEN 
RETURN 

I860 LET R=B: GO TO 83© _ 

107© PRPER 1 BORDER 1: INK 7: C 
LS 

1075 PRINT RT ©,0;“Stsnd_hy* 

138© LET H = 120: LEl HK=7s: L.ET C 
sill: LET CK=3B: LET 5=32: LET B 
= 143 

1890 LET OF = —99: DIM ©iS3J . DIM 
N 5 4) 

1100 FOR M=1 TO 99: LET ©CH)=OF: 
NEXT M 

1118 FOR M=1 TO 64 
112© READ D: READ G 
1130 LET © CDS =G: NEXT M 

1140 DRTR Si,B,82,0,S3,B,84,0,35 
,B,86,C,87,B 

1150 DRTR 88,C,71,C,72,B,73,C,74 
,B,75,C,76,B 

116© DRTR 77,C,78,B,61,B,62,0,63 
, B , 64 , C 

117© DRTR &5,B,66,C,67,B,6B,C,S1 
, E , 52 , B 

1130 DRTR 53,E,54,B,55,E,56,B,57 
, E . 58 , B 

119© DRTR 41,B,42,E,43,B,44,E,45 
, B , 46 , E 

1200 DRTR 47,B,48,E,31,H,32,B,33 
,H,34,B,35,H 

121© DRTR 36,B,37,H,38,B,21,B,22 
,H,23,6,24,H 
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3 ,SB ,H, £7 


1220 DflTR SB, 

12,3,13 f H 
1230 DRTR 14- , S j 15 , H , 16 ,B, 1? , H., 18 

FOR M=i TO * RERD N(M): NE 

XT M 

1250 DRTR -11,-9,11.9 

LET CO = 0 : LET HU = 0 : RETURN 
J-270 XF © (223 =C RND ©C113=£ THEN 

eturn° =££: LET m=11; let FL=1 R 

126© XF ©(223 =C RND QC133 =E THEN 
^LET^ft=22. LET M=13: LET FL=1: R 

1290 XF 0(243=0 RND Q(133=E THEN 
LET ft =24-. LET M=13: LET FL=1: R 
ET URN 

1300 IF 0(243=0 RND 0(153=E THEN 
LET K=24 LET M =15: LET FL=1: R 
ETURN 

1310 IF 0(263=0 RND 0(153=E THEN 
^1^=26: LET H=15: LET FL=i: R 

1320 IF 0(263=0 RND 0(173=E THEN 
LET fi=26 LET M=17: LET FL =1; R 
ETURN 

134© RETURN 


TIC-TAC-TOE 

TIC-TAC-TOE (noughts and crosses) is the well-known game in 
which you and your opponent take it in turns to place your symbols 
(either a zero or a cross) on vacant positions on a three by three 
grid, trying to get three in a straight line in any direction, vertically, 
horizontally or diagonally. The game has been so well analyzed that 
there are rarely surprises when playing it. Instead of the more 
predictable noughts and crosses programs in which the human can 
at best draw (and will generally lose), I set myself the task of writing 
a program which would play in a non-predictable, but still fairly 
intelligent manner. The program I came up with allows either you 
or the computer to go first (the decision as to who will move first is 
determined by line 50). Apart from taking the middle square if it is 
available, the Spectrum's moves are difficult to predict (except of 
course for completing a line of three if it exists or of blocking one of 
your potential lines of three). 

If RND in line 50 is greater than 0.5, the computer decides to 
move first and, after a pause, goes to line 90, which sends action to 
the subroutine from line 700 where the board is printed out. On 


return from the subroutine the computer goes to the subroutine 
from line 430 which is, as you can see, the 'win check' routine. This 
routine, which checks all the possible wins, continues to line 550. 

Back home from the 'win check' the computer looks at the 
central square (number five). If it finds this position empty the 
computer moves into it and (as the end of the line indicates) 
immediately goes to line 60, where the board printing subroutine is 
called prior to the human player's move being accepted. 

If this simple move cannot be made the computer prints up the 
message "Please stand by", then checks for a possible win the 
first time it moves through the routine from 140 to 280 and if one is 
not found, looks for a potential three it can block. If neither of these 
are found the computer chooses up to 20 moves at random, 
looking for somewhere to move. If no move has been found, the 
computer (using the routine from 350 to 380) checks each square 
in turn. If no move is found, the computer knows all squares are 
full. It also knows, because it has made a 'win check' earlier, that 
neither it nor you have won, so the result must be a draw. Line 410 
prints this up. After a trill or two from the music department (the 
routine from 590 to 600) the program automatically reruns. 

The player move subroutine from line 620, allows you to enter 
your moves via INKEYS, so it is not necessary to press ENTER after 
selecting a number. 

Note how the entire game is called within an endless cycle from 
60 to 100, printing the board, accepting a player move, printing 
the board, checking for a win or a block, making the computer 
move . . . and so on, until the game ends. The advantage of 
working in this way with the program made up of subroutine calls 
from an endless cycle, is that you can modify different parts of the 
program, improving them as you do so, without having to dislodge 
previously written parts. 

If you wish to improve the play of this program (although it will be 
at the cost of the program becoming more predictable), you could 
get it to sample the squares in the 'random move' section (from 
line 290) in a predetermined order. 

10 REM TIC TRC TOE 
2© DIM R03 
3S R8NDOHIZE 

4© BORDER 1 : INK 7 : PRPER 1: C 

LS 
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5© XF RND>0.5 THEN PRINT ftT 5. 
5: FLfiSH l;”I ll go first.--”: F 
OR E=1 TO 5©: BEEP ©-0B.E. NEXT 
E; CLS : GO TO 30 
60 GO SUB 70S 
7© GO SUB 4-3© 

3© GO SUB 62© 

3© GO SUB 7©© 

130 GO SUB 4-3© 

IIS XF 3(51=0 THEM LET 3(53=1: 
GO TO 50 

12© REM TO COMPLETE ROU/BLOCK 
130 PRINT RT 1 , 1 ; FLASH 1;"Plea 
ss stand by" 

14-© LET D = 1 
15© LET B = 1 

16© IF B =1 THEN LET X=l: LET Y = 
2. LET Z =3 

17© IF B=2 THEN LET X=l: LET Y= 
4-: LET Z=7 

IS© IF B =3 THEN LET X =1 . LET Y = 
S: LET Z=3 

130 IF B =4- THEN LET X=3: LET Z = 


2®0 LET C- = l 
21© IF ft (X) =D ftNS> ft 
Z 3 =0 THEN LET ft(Z3 =1 
220 IF ft CX3 =D AND ft 
Z 3 =D THEN LET ft (Y3=1 
23© IF ft CXJ =© AND ft 
Z3 =D THEN LET ft (X 3 =1 
2-4-S IF B = 1 THEN LET 

Y =Y+3: LET Z=Z+3 
25© IF B=2 THEN LET 

Y =Y +1: LET Z=Z4-1 
26© IF C <3 THEN LET 

O 21© 

27© IF B < 4- THEN LET 
O 17© 


3=D ftNO ft( 
GO TO 6© 


¥3=0 AND ft C 
GO TO 60 



X=X>1. LET 


C=Cti: GO T 
B =B 4-1; GO T 


23© IF D <2 THEN LET D=£> = ! 

O 15© 

23© REM HOUE ftT RfiNDOH 
39© LET B=1 

31© LET C = INT (RND*S3 +1 
32© IF ft(03 =0 THEN LET ft(O’ 
GO TO 6© 

33© LET B=B+i 

34-© IF B <21 THEN GO TO 313 


= 1 : 


350 LET B=B 


360 LET B=B+I 

370 IF ft(B3=© THEM LET ft(B3=l: 
GO TO 6© 

3S0 IF B < 3 THEN GO TO 36© 

33© GO SUB 700 

4-0© PRINT ' ' FLfiSH 1; TAB 5; "I 

t ' S 3 d r 3 us ! 
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4-1© GO TO 53© 

4-3© REM U IN CHECK 
4-4-0 FOR B = 1 TO -4- 
4-59 IF B = 1 THEN LET X=1 
2: LET Z =3 

4-6© IF B=2 THEN LET X=3 
4-: LET Z =7 

4-7© IF B=3 THEN LET X=2 
5: LET Z=3 

4-8© IF B =4- THEN LET X=2 
7 

4-3© FOR C = 1 TO 3 

500 IF ft (X3 =ft (Y3 THEN IF ft (Y3 =ft 
(Z3 THEN IF ftCX3 <>© THEN GO TO 5 
6 © 

51© IF B =1 THEN LET X=X+3: LET 

Y =Y 4-3. LET Z=2t3 

52© IF B=2 THEM LET X =X4-1: LET 

Y =Y 4-1: LET Z =Z 4-1 
53© NEXT C 

54-© NEXT B 
55© RETURN 

560 BEEP 1,1: BEEP 2,2 
570 IF ft (X3 =1 THEN PRINT ' ' ' F 
LftSH l;TftB 5,“X's the w inner! 

580 IF ft(X3 =2 THEN PRINT '' FL 
fiSH 1.; TftB 5; "YOU re the winner I 

53@ FOR X = 1 TO 25: BEEP .®5,X: 
NEXT X 

630 FOR X =5© TO 25 STEP -0-5: B 
EEP -05.X: BORDER RMD*7; NEXT X 
610 RUN 

62© REM PLAYER HOUE 

63© PRINT ftT 1,1; FLfiSH l;"YOUr 

Hi OVe..." 

64-0 LET ft $ = INKEY $ 

55© IF ft$<l OR ft§>“3” THEN GO 
TO 64-© 

660 LET B=UftL (ft$3 
67© IF R CBJ < >0 THEN GO TO 64-0 
63© LET ft CB3 =2 
63© RETURN 

70© REM PRINT OUT 
710 PRINT RT 1,1.;” 

72© PRINT ftT 6,5;“1 2 

725 LET FLAG=© 

730 FOR B=i TO 9 
735 IF ft(B3=© THEN LET F 
74-0 IF ft CB3 =© THEM PRINT 
: BEEP .©5,1© 

75© IF ft iB3 =1 THEN PRINT 
: BEEP .©3,5© 
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76© XF BtB) =2 THEN PRINT ** X 
BEEP .©5,-3 

77© IF 8=3 THEN PRINT RT 8,5;"4 

7S© XF B=S THEN PRINT PT I® R•” 

7 8 9 "; ' ' ~ 

790 NEXT B ' 

S0© IF FLRG=® THEN GO TO 4-0© 

S1© RETURN 

NEOPHYTE CHESS 

ne-o+phyte n. 1. a person newly converted . . . 

3. a novice or beginner. . . ( Collins English Dictionary, Collins, 

1979 ) 

Back in 1978 when chess-playing computers were a rarity, 
readers of the Romanian weekly publication Magazinul took part in 
a game of chess against a computer in that country called Felix 
C-256. Programmed by mathematician Vioreal Darie from the 
Bucharest Institute of Computing Technique, the program—Astro- 
64—took two years to develop. Felix made a move and readers 
were invited to write in with the move in reply. The most popular 
move was fed into Felix and its response printed in the following 
week. 

Despite the 600 hours or so which were invested in writing the 
program, Felix did not play particularly well and was finally defeated 
by the combined readership of Magazinul. One chess expert said 
that the program sometimes made good or excellent moves but at 
other times played 'like an uneducated chess player' and made 
'even beginners' mistakes'. 

As the title of our program (defined by the quotation at the 
beginning of this section) and the story of Felix have probably 
suggested, the same criticisms could be levelled at our program, 
NEOPHYTE CHESS. It does not play good chess and should prove 
easy to defeat, but it has been included in this book for several 
reasons. 

Chess has always beckoned as a temptation to programmers. It 
used to be thought in the innocent pre-micro days, that if a 
computer could be programmed to play chess, this might be 
construed as proof that computers could truly be considered 
intelligent. In order to cope with the enormous number of 


permutations which could occur in a game the scope of a chess 
program must be very broad compared with, say, a program to play 
checkers or noughts and crosses. There are some 10 12 ® possible 
games of 40 moves, a similar number of games to the number of 
atoms in the universe. Programming a computer to cope with 
these sorts of possibilities is a formidable challenge. 

Very few chess programs in BASIC have ever been published. 
The fact that one can be developed which plays in a reasonable 
time is, I think, of interest in itself and there is no doubt that 
watching this program play is fascinating, even if it will never show 
you how to improve your chess. This program plays very quickly 
most of the time. It locates, stores and sorts its piece positions in 
less than four seconds and generally moves within six to fifteen 
seconds after that. As board positions become more complex, the 
game slows down, but the Spectrum still rarely takes more than 
forty seconds to move. 

After the listing, I've added a variation of the program which 
allows it to play against itself. Watching the computer grapple 
alternatively with white, then black, is fascinating and will give you 
a good insight into weaknesses in the Spectrum's game which I 
hope you will feel inspired to try and remedy. The program has 
deliberately been written in modular form to make it easy to get at 
the sections which deal with specific pieces, so you can gradually 
modify the program to your own liking. 

The fact that Felix could even play chess was considered news in 
1978. And it is perhaps surprising that although the first major 
paper on the possibilities of the computer playing the game— 
Programming a Computer for Playing Chess —was delivered in 
1949 by Claude Shannon (an important early figure in the 
development of computers), the first program did not surface until 
a decade later, when Alex Bernstein and three of his colleagues at 
IBM managed to get a game up and running on an IBM 704. 
Despite this relatively late beginning, there are a great many chess 
programs available today, including several competing versions for 
the Spectrum alone. 

But chess is, as I said, a formidable challenge for a programmer 
to tackle. Once you've entered this program and worked on it a bit, 
you should have a much better idea of oneway in which a primitive 
game can be developed. From there, you should be better able to 
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appreciate how dedicated chess machines work, and can then turn 
your hand to writing a complete program for the game from 
scratch. I have used a number of ideas which are fundamental to 
writing board games in this program and you should be able to find 
many other programs in which the ideas can be used. 

The first decision I made was to set my sights on a realistic 
target. When I was new to this game, I was struggling with an early 
draughts program I had written, trying to work out how to allow the 
computer to recognize and make multiple jumps. Trevor Sharpies 
(who has co-written two books with me) suggested that I write the 
program simply to cater for double jumps. He pointed out that as 
the program did not play particularly well, the chance of it getting a 
triple jump against a human player was so unlikely it would not 
need to be catered for. Later I developed a simple subroutine to 
cater for n jumps, but at that time the advice was invaluable. Claude 
Shannon, the man who delivered the paper on chess playing in 
1949, was the one who said there were approximately 10 120 
different sequences of moves which could be played in a 40 move 
game. Shannon added that a fast computer would take 10 90 years 
to examine all the possible moves to be made, before it even 
decided to move its first pawn forward two squares. 

I decided that 10 90 years was a little long to wait and 40 times 
10 90 (approximately) would try my patience severely. An ex¬ 
haustive search was obviously out, even if I had the programming 
skill (which I do not) to write a program to somehow assess those 
moves and choose one which was worthwhile. 

Even though I had no plans to write a program which would have 
anything but the most basic means of looking at possible 
consequences of its moves, I knew that the very number of 
combinations which could be considered at the simplest level 
could make the program very, very slow. I was pleasantly surprised 
at how quickly it played when I finally got it up and running, even 
though I had tried to write it to optimize speed. A program which 
has often-called subroutines towards the end of the listing tends to 
run a little more slowly than it would if the subroutines were near 
the beginning of the program. This is because a computer looking 
for a subroutine destination starts at the very first line number in 
the program and then goes through it line by line looking for the 
start of the subroutine. If the routine is near the start, it has fewer 
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lines to search. 

I planned the entire program carefully, writing the first version 
out completely on paper before a single character was entered into 
the Spectrum. This allowed me to handrun it more times than I care 
to remember and to shuffle the component parts so that the 
program structure was as logical as possible. It appears that this 
has kept its response time low. 

So, the first two ideas incorporated in this program are the need 
to aim at a moderate horizon and to have a program structure which 
impedes response time as little as possible. 

The next important idea concerned the board layout. My first 
attempts at computer board games used a board numbering 
system I developed based on an idea put forward by A. L. Samuels 
in an article in Scientific American (see Strachey, C„ 'Systems 
Analysis and Programming', in Readings from Scientific American, 
W. H. Freeman and Co., San Francisco, 1971). 

Although this worked satisfactorily, it required a long routine to 
convert player moves as entered into numbers which the 
computer could use. A far more satisfactory board-numbering 
system was suggested to me in late 1981 by Graham Charlton (co¬ 
author of The Turing Criterion—Machine Intelligent Programs for 
the 16KZX81, Interface, London 1982) and this lies at the heart of 
the CHECKERS program in this book, and NEOPHYTE CHESS. The 
entire board is held in an array and moves are made simply by 
swapping elements of the array around, replacing one element of 
the array with the character for an empty square when a piece 
leaves one location, and putting the CODE of that piece in the 
element of the array representing the position to which it is 
moving. When the board is printed the computer simply has to 
print the character (CHRS) of each element in the array in turn. The 
Charlton board numbering system also makes for easy conversion 
between the numbers entered by a player to indicate the moves he 
or she wishes to make, and the element number of the array which 
that player move represents. 

I knew before I began the program that the player should be able 
to refer to the squares on the board by the algebraic notation which 
is fairly standard in chess circles, so arranged my board to make 
this as easy as possible. This diagram shows the squares on the 
board, around the board are the numbers and letters used in chess 
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algebraic notation, and within the board, the elements of the array 
which refer to that square: 


8 

7 

6 

5 

4 

3 

2 

1 


The real advantage of the Charlton system over other board¬ 
numbering systems I've considered is that any move can be 
described as a simple addition to, or subtraction from, the starting 
square. An explanation should make that clear. Imagine that you 
have a knight on the square numbered 45. As you know a chess 
knight moves in an L-shape, two squares and then one, or one 
square and then two. One possible move for the knight is to go 
from its current square (45) to the square numbered 66, an 
increase of 21. Now imagine the knight was on square 11. Add 21 
to this and we get 32, another possible legal move. Start from 52, 
add 21, and we get a (correct) destination square of 73. The eight 
moves of the knight from any one position (assuming the move 
does not take it off the board) can be found by adding the following 
numbers to the starting square: 

19, -19,21,-21,8,-8, 12, -12 

In a similar way, pawn moves can (apart from the first move, 
when two squares are possible) be found simply by adding one on 
to the starting square (so a pawn can move legally from 45 to 46, or 
from 23 to 24). A pawn captures by moving one square diagonally, 
so it can capture to squares designated as plus 11 or minus nine. 
Knowing this, we can program a computer fairly easily to search 
the possible legal moves from its starting square. 


ABCDEFGH 


18 

28 

38 

48 

58 

68 

78 

88 

17 

27 

37 

47 

57 

67 

77 

87 

16 

26 

36 

46 

56 

66 

76 

86 

15 

25 

35 

45 

55 

65 

75 

85 

14 

24 

34 

44 

54 

64 

74 

84 

13 

23 

33 

43 

53 

63 

73 

83 

12 

22 

32 

42 

52 

62 i 

72 

82 

11 


31 

41 

51 

0 

71 

81 
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This is exactly what I have done in this program. If you look at the 
lines following 2640 in the initialization section of NEOPHYTE 
CHESS, you'll see how it is done. Firstly (in line 2650) a number of 
arrays are DIMensioned to be used for several tasks. Among them 
are arrays to hold the potential moves of specific pieces. The N 
array (N is used to designate knight, to distinguish it from K for king) 
is filled with the DATA in line 2870. If you look at that line you'll see 
the same eight numbers as we discussed a few paragraphs ago for 
holding knight moves. One way of making a knight move (and this 
method is used, with some limitations, at one point in NEOPHYTE 
CHESS) is to generate a number at random between one and eight, 
and test that element of the N array to see if the square the knight 
currently occupies, plus the number in that element of the N array, 
is either an empty square or is a piece owned by the opponent. If it 
is found to be an opponent's piece and a few tests indicate that this 
square does not face capture from other pieces, the move can be 
made. This is the technique which lies at the heart of NEOPHYTE 
CHESS. Take a few moments to re-read this to understand it. If you 
are willing to put in the amount of methodical work required you 
could probably now write a chess program from scratch, armed 
with the information given up to this point. 

A program which moved simply by throwing a couple of dice, 
such as this explanation suggests, would of course fall prey to even 
a beginner very rapidly. So the move generation process must be 
modified to some extent, as is done in this program, but the move¬ 
making works just as described. The piece arrays are in the 
program as follows: 

Knight -2860 to 2870 
Rook -2880 to 2920 
Bishop - 2930 to 2970 

Queen - 2990 loads the Q array with the elements of the 
bishop and rook arrays, because the queen's 
moves are simply a combination of all the rook 
moves and all the bishop moves 
King -3000 to 3010 

The next array to be filled, the S array (lines 3020 to 3100), holds 
the next secret of our program. Many 'intelligent' board game 
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programs (such as the CHECKERS in this book) go through each 
square on the board from the top left hand corner to the bottom 
right one, square by square, looking for pieces, captures and 
moves. My decision, and the one which—more than any other— 
accounts for the speed of this program, was to sample the squares 
in an order which I felt was most in keeping with the game of 
chess. The order in which the squares are sampled is held in the 
DATA statements, 3030 to 3100. Here are the numbers which you 
can compare with the locations on the numbered board given a 
short time ago: 

4- 6 56 36 56 4-7 57 4-5 55 

37 67 35 65 26 76 27 77 

4-4- 54- 26 76 36 66 17 67 

IS 66 34- 64- 25 75 16 66 

4-8 24- 74- 15 65 14- 64- 4-3 

53 33 63 23 73 52 4-2 62 

32 S3 13 72 22 12 S2 41 

51 31 61 21 71 11 61 56 

The program always looks at the square 46 first, then 56 and so 
on, through the list. It is worth studying this for a few moments as 
this order is something you may well feel like changing in due 
course. 

Let's recap on the parts of the program we've discussed so far. 
We pointed out that this program has been included because 
chess has proved a constant fascination to computer programmers 
and although NEOPHYTE CHESS does not play well, it can teach 
quite a bit about programming chess and similar board games. 
Despite being in BASIC, it plays remarkably quickly. 

The program listing is followed with a variation of the first ten 
lines or so to allow the computer to play against itself. This provides 
a fascinating display and is a good way to debug the program, since 
you can leave it running—all day if necessary—playing against 
itself to see if it crashes at any point, which will indicate a typing 
error. 

The board numbering system used has been illustrated and it 
was explained that this numbering system means that moves of all 
pieces can be expressed in terms of an addition to, or a subtraction 
from, the element of the array which represents that square on the 
chess board. The possible moves by each piece are stored in an 
array, with each array name designed to make it fairly easy to 
recognize what each array holds, such as Q for the array holding the 
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queen's moves, and B for the bishop moves. The S array holds the 

sequence in which the squares on the board are checked when the 

computer is looking for a move. 

Here is the layout of the program: 

10-30 Starting information, ensures CAP LOCK is engaged 

40-60 These three lines reprint the board after the 

computer move, call the player to enter his or her 
move, and reprint the board 

70-2350 This is the hub of the program, and contains all the 

thinking part of the game. We'll look at it in more 
detail shortly 

2360-2460 This reprints the board after each move and (in lines 
2410 and 2420) promotes pawns which have made 
it to the back rank to queens 

2470-2560 This is the 'court of last resort' if the king senses it is 
in trouble. From here, if a move is not made, 
line 2560 directs the program to 2060 where the 
computer concedes the game 

2570-2630 This section accepts the player's move, calling the 
'comment' subroutine if a computer's piece has 
been taken, and allows the player to signal various 
things to the program after the move has been 
entered. The program demands input in the form of a 
letter and a number (such as A5) entered as a single 
string to designate the square you're moving from, 
then a further letter and number to indicate the 
square you wish to move to. Once this is done (and 
the program checks the length of the input, but does 
not check the legality of the move), you are 
presented with the following choices: 

C - you've got the computer in check 




P - you want a copy of the board printed 

X - you wish to exchange sides 

S - to terminate the game 

ENTER - to continue with play 
Once you've indicated which of these you want, 
lines 2625 and 2630 actually make your move. 


This ends the working parts of the program, except for the 
subroutines which 'comment' on a capture by the player and the 
routine which is called when you wish to exchange sides. The rest 
of the program is initialization, and it is made up as follows: 

2640 This seeds the random number generator, sets the 

flag MM to zero, and sets the string AS (which 
accepts the first part of the player's move, and is 
used to signal check and the like) to "". MM is the 
most important variable in the whole program. When 
the computer finds a move, MM (named after 
'machine move') is changed from zero to one. The 
flag MM, then, is checked throughout the running of 
the program and only when its state changes from 
zero to one will the computer stop looking for a 
move. It will—if necessary—go through the process 
of looking for a move eight times before it concedes 
that it has made no decision which will switch MM 
from zero to one. 

2650 This DIMensions the arrays. Here's what they do - 

A - holds the board, the master array 
R - rook moves 
B - bishop moves 
N - knight moves 
Q-queen moves 
K- king moves 

Z- used when exchanging sides 
S - sequence in which squares are checked 
T - holds the location of each piece, contents 
changed each move. 
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2660-2670 These two lines hold the variables which are used 
for the pieces. The pieces, by the way, are 
represented by the letter names (such as P for pawn, 
K for king, and N for knight) with the computer 
playing black from the top of the screen, and having 
its pieces represented by capital letters, with small 
letters for your pieces. Here's what the board looks 
like at the start of the game: 



As you can see, the board is made up from dots 
rather than black and white squares, and there are no 
user-defined graphics. The point of this program was 
to get it to play chess, rather than to get it to look 
pretty, but if you wish to add 'proper' chess piece 
shapes, by all means do (and send me a copy of your 
program, via the publisher, because I'd be very 
interested in seeing it). Each 'from' and 'to' square is 
indicated by the letter across the top or bottom, 
followed by the number down the sides, so your 
queen starts on D1 and the computer's king's knight 
starts on G8. 

Here are the variables for the pieces: 

Human-white: P-112; R — 114; N — 110; B-98; 
Q -113; K -107 

Computer - black: PB -80 (for 'pawn black'); 
RB-82; NB-78; BB-66; QB-81; KB-75 

2680-3100 The arrays for the possible movements of the 
pieces. These have already been discussed. 
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3110 Sets the PAPER and BORDER to blue, the INK to 

white. Change this to whatever you like. 

3120-3210 This routine allows you to exchange sides at any 
point in the game after you have moved. The 
exchange works as follows: the computer acts as if a 
mirror had been placed across the centre of the 
board and the pieces are reflected in this, so a piece 
starting on A2 will end up on A7. Although the 
position of the pieces is changed, the computer 
continues to have the capital letters and you have the 
small letters, although you will have inherited each 
other's positions. The 'auto-play' option simply does 
an exchange after each move, and then dumps every 
second board (when the pieces are the 'right way 
round') so you can keep track of the game. You'll find 
this exchange system is easy to understand once 
you've used it. 

3310-3380 If you move on to a computer piece (detected in line 
2625) the Spectrum uses this subroutine to 
comment on your capture. Three times out of four it 
will flash the border, say something like "Got me!" 
and play a little trill, then three mournful notes. The 
fourth time the three notes only will sound, plus a 
very quick border flash to acknowledge the capture. 

Finally, before we get to the program listing itself, here's a 
breakdown of what happens inside it when a game is under way. I 
hope this will allow you to interpret its workings, so that when you 
want to improve it you'll know which section to tackle. 

In line 70, MM (as you know) holds the machine move. It must be 
reset to zero after each move. By the way, if you want to have first 
move, delete the GO TO 60 at the end of line 30. UK counts the 
number of times the program is cycled looking for a move. It is 
designed to ensure that the king is not moved without good reason 
and to encourage the program not to concede defeat too easily. 
The next few lines (80 to 100) act on the player's intentions as 
expressed after he or she has moved. 
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Line 110 dimensions the T array. Doing this every time fills the 
array with zeroes, ready for it to save the locations of each of the 
pieces. U is the variable which counts the number of pieces the 
computer has on the board. " Please stand by" appears at the top of 
the screen while the computer searches for a move. The routine in 
lines 120 and 130 goes through all the squares on the board, in the 
order dictated by the elements in the S array, storing them as it 
finds them in this order in the T array and counting them as it goes. 
The variable KM is called the 'king marker' and this is used by the 
computer to keep track of its most valuable piece at all times. KM is 
set to the king's location at the end of line 120. Line 130 completes 
the loop. The variable U, as I said earlier, counts the number of 
pieces on the board. If U is less than three, the computer concedes 
the game. 

The action now goes to line 580 where Z is set equal to the king 
marker. The next routine, from that line right through to 810, 
checks whether the king is in danger. This check is made whether 
or not you've signalled 'check' after making your move. Once 
danger is found, the computer goes to the lines from 1710 to see if 
it can move out of danger. 

Back near the start of the program, at 150, the computer goes 
through its pieces and moves the king to the end of the pieces, so 
that it will only be moved if there are no other moves it wants to 
make. It knows from its tests in the routine from 580 that its king is 
not in danger, so there is no reason to expose the king to new 
danger by moving it if the king is safe where it is. 

Line 170 chooses the piece in the sequence with which it will 
start, choosing one of the first three. This is set back to one if the 
player has signalled check by the end of line 170. If the number 
chosen is less than the total number of pieces on the board, one is 
added to the value of Q to determine which element of the T array 
will first be checked for a move. 

Line 190 sets the variable Z (which is used throughout the 
computer sequence as the 'from location') to the element of the T 
array chosen, and the program jumps three lines to a subroutine 
starting at 230. A BEEP produced by 230 shows the computer is on 
the job. The BEEP from this spot sounds from time to time as the 
computer is looking for a move so that you know it is still working, 
even if it seems to be having trouble finding a move. 
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The next four lines send the program to a specific subroutine, 
depending on the piece being considered. From these subroutine 
destinations, you can discover which parts of the program look 
after the 'can I capture' actions by the computer: 


Queen - 820 
Rook - 1300 
Knight - 1540 
Pawn - 2070 

Line 280 returns us to line 200, where MM is checked. If it is 
equal to one, then the program goes to 2310 to make the move, 
then back to 40 which calls the routine to reprint the board before 
allowing the human to enter a move. If MM equals zero, the 
program continues through to the next line and—if Q is less than 
U—sends action back to 180 where Q is incremented and the 
search continues. If Q is not less than U, it means all the pieces 
from the randomly selected first one have been checked for 
captures. 

From this point the program leaps to 2180 (my well-laid plans of 
having a clear flow through the program were frustrated by the 
demands of the program when I got to the point of typing it into the 
computer), where Q is set to a random number between zero and 
four (with the double use of RND serving to bias the numbers 
towards the low end). This number is checked to make sure it does 
not exceed the number of pieces available. You may well wish to 
change the five in this expression to a higher number to reduce the 
predictability with which the computer develops certain pieces 
first. Any number up to and including nine is quite workable. Again 
one is added to this in line 2190 and Z is set equal to the piece 
selected. The subroutine destinations will indicate where the 
control for the pieces is to be found: 

Pawn - 2140 

Knight - 1630 

Bishop - 1420 

Rook - 1180 

Queen - 940 
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King - 1710(onlyifthekingisnotincheckandthe 

random number chosen is less than .07, 
to discourage the king from wandering) 

Once the computer has gone to the relevant subroutine, it 
checks to see if the flag MM is still zero. If it is, and all pieces from 
the randomly-chosen start piece have not been checked, the 
program goes to 2180 to choose a new piece. If MM has become 
one, then the computer goes to the subroutine from 2310 to make 
the move, then returns to line 40 for the board to be reprinted, prior 
to the computer moving again. The next line checks the value of 
the variable UK and if it is greater than eight, knows the whole 
routine has been checked eight times and no suitable move has 
been found, so goes to 2060 to concede the game. 

The next sequence actually makes the computer move. Line 
2310 rejects a king move nine times out of ten if the king is not in 
check, by resetting MM to zero and going back to 2180 to look for 
another piece to move. Line 2312 is triggered if the piece to be 
moved is a pawn. It checks that the program is not trying to move a 
pawn backwards and stops such a move from being made. If the 
white king is in the square in which the computer was going to 
move, the human is in check, so "Check!" is printed on the screen, 
and the computer returns to line 190 to look for another capture. 

If the contemplated move has passed these hurdles (and this 
area of the program is an easy one to modify if there are particular 
moves in the program which you want to discourage, or 
completely outlaw), line 2315 makes the move, and lines 2320 to 
2330 tell you (using an apparently very complex line to change the 
array number into board coordinates which you will recognise) the 
move which has been made. Line 2340 returns the program to the 
loop at the beginning and we are now at the board printout section. 

Despite the routine for determining danger to the king, the 
program is not always able to get itself out of check. You can 
consider such a failure a wish to concede (or, if you're feeling 
generous, allow the program to stay in check for one more move). 
Similarly, if the program moves itself into check, (a very rare 
possibility), take this as an indication that the computer has 
resigned. 
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10 REM NEOPHYTE CHESS 
20 PRINT "PLEASE ENGAGE ", FLA 
PH 1;"CAPS LOCK"; FLASH 0;", THE 
N","PRESS ENTER": INPUT A$: CLS 
•' PRINT "'"Thank you, please sta 
nd by" 

30 GO SUB 2S4-©: GO TO 60 
4-0 GO SUB 2350 
50 GO SUB 2570 
60 GO SUB 2350 
7© LET MM=0: LET UK =0 
60 IF A$="S" THEN STOP 
9© IF A$="X" THEN PRINT AT 0,0 
, FLASH l;"Exchanging sides": GO 
PUB 3120: PRINT RT 

LET A$ = "" 

100 IF R$="P" THEN COPY 
110 DIM TC16). LET U=0: PRINT R 
T 0,©; INK RNC-s-5+2; PAPER 9;" PI 
ease stand by " 

120 FOR 0=1 TO 64: IF ACSCO))> = 
BB RND A C S CQ)) < =RB THEN LET U=U + 
1: LET T CU) =S CO) : IF A<S<CJ ) =KB 
THEN LET KM=SCO) 

130 NEXT ©: IF U<3 THEN GO TO 2 
06 © 

14© GO TO 58© 

150 FOR 0=1 TO U: IF ACTCO))=KB 
THEN LET TCO)=T CUJ : LET T(UJ=KM 
160 NEXT O 

^17© LET O = INT CRND+3) *C CR*="C") 

180 IF O <U THEN LET 0=0 + 1 
190 LET Z=T IOJ : GO SUB 230 
200 IF MM=1 THEN GO SUB 2310; G 
O TO 4© 

210 IF ©<U THEN GO TO 180 
220 GO TO 2180 

230 BEEP - 008, RND+ 3©+20; IF Ad 
.1 =05 THEN GO SUB 82© 

24© IF A fZ.i =RS THEN GO SUB 106© 
25© IF R CZ) =BB THEN GO SUE 130© 
^ {Zi =HE THEN GO SUB 1540 
l2 -* =PB THEN GO SUB 207© 
290 IF R IX) =107 THEN PRINT RT 0 
,0, FLRSH 1; " Check. 1 ",; LET © = 
0+1: LET MM=0: GO TO 190 
30© IF X+9>88 THEN GO TO 320 
310 IF RCX+9)<83 RND ACX+9)>65 
RND RND <.96 THEN RETURN 
320 IF X-11<11 THEN GO TO 340 
330 IF R(X—11)<83 RND ACX-I1)>6 
5 RND RND <.96 THEN RETURN 
340 LET AD =0 
350 LET AY =1 
360 LET RX=X+0(RY+RD) 
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37© IF RX <11 OR RX >88 THEN GO T 
O 400 

38© LET RP=R(RX) 

390 IF AP=© OR AP=R RND RND>.8 
OR AP=B RND RND>.5 THEN RETURN 
4©0 LET RY =AY +1 
410 IF RY <8 THEN GO TO 360 
42© LET AD=RD+7 

430 IF RD < 56 THEN GO TO 350 

44© LET RY = 1 

45© LET RX=X+NCRY) 

46© IF RX <11 OR AX>88 THEN GO T 


470 IF R CRX) —N THEN RETURN 

460 LET RY =RY +1 

490 IF RY < 9 THEN GO TO 450 

5©0 LET RY = 1 

51© LET AX=X+K(RY) 

520 IF RX <11 OR RX >88 THEN GO T* 
O 540 

530 IF (A(RX)=K OR R(RX)=P) RND 

RND >.1 THEN RETURN 

540 LET AY=RY+1 

550 IF RY < 9 THEN GO TO 51© 

560 LET MM=1 
570 RETURN 
58© LET Z=KM 
590 LET Y=0 
600 LET Y=Y+1 
61© LET X =Z +N C Y) 

620 IF X<11 OR X >88 THEN GO TO 
540 

63© IF R(X)=N THEN GO TO 1710 

640 IF Y <8 THEN GO TO 600 

65© LET 0=0 

660 LET Y = 1 

670 LET X=Z+OCY+D) 

680 IF X<11 OR X >88 THEN GO TO 

730 

690 IF RCX) =B OR R CX) =© OR R CX) 
=R THEN GO TO 1710 
700 IF R CX) < >E THEN GO TO 730 
71© LET Y =Y + 1 

720 IF Y <8 THEN GO TO 670 
730 LET D =D +7 

740 IF D <49 THEN GO TO 670 
750 LET X=Z+li 
760 IF X >88 THEN GO TO 780 
770 IF R(X)=P THEN GO TO 1710 
780 LET X=Z-11 

790 IF X<11 THEN GO TO 15© 

800 IF R CX) =P THEN GO TO 1710 
810 GO TO 15© 

820 LET D=© 

830 LET Y = 1 

84© LET X=Z+OCY+D) 
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850 IF X<11 OR X >88 THEN GO TO 
310 

860 IF ACX)=42 OR R(X)>=BB AND 
RCX)<=RB THEN GO TO 910 
870 IF R t X ) > =B RND RCX)<=R THEN 
GO SUB 290: IF HMol THEN GO TO 
910 

880 IF HM=1 THEN RETURN 
890 LET Y=Y+1 

900 IF Y <8 THEN GO TO 84-0 
910 LET D=D+7 

920 IF D < 4-9 THEN GO TO 830 

930 RETURN 

94-0 LET D=0 

950 LET Y =1 

960 LET X=Z+Q CY+D) 

970 IF X<11 OR X > 88 THEN GO TO 
1030 

988 IF RCX) < >E THEN GO TO 1030 
990 IF RND>.5 THEN GO SUB 290; 
IF MM=0 THEN GO TO 1030 
1000 IF MM =1 THEN RETURN 

1013 LET Y=Y+1 

1020 IF Y <8 THEN GO TO 968 
103© LET D=D+7 

104-8 IF D < 4-9 THEN GO TO 95© 

1050 RETURN 
1068 LET D=© 

1070 LET Y=1 

108© LET X=Z+RCY+D) 

1090 JF X<11 OR X >88 THEN GO TO 
1150 

1100 IF R (X) =4-2 OR A CX) > =BB AND 
RCX) < =RB THEN GO TO 115© 

1110 IF RCX) >=B RND RCX) < =R THEN 
GO SUB 290: IF MM=0 THEN GO TO 
1158 

1120 IF MM = 1 THEN RETURN 
1130 LET Y = Y +1 

114-8 IF Y <8 THEN GO TO 108© 

1150 LET D=D+7 

1160 IF D <28 THEN GO TO 1070 

1178 RETURN 

1180 LET D =0 

1190 LET Y=1 

1200 LET X=Z+RCY+D) 

1210 IF X<11 OR X >88 THEN GO TO 

1270 

1228 IF R(XJ<>E THEN GO TO 127© 
123© IF RND <.1 THEN GO SUB 23© 
1240 IF MM = 1 THEN RETURN 
125© LET Y =Y +1 

1268 IF Y <8 THEN GO TO 1200 
1270 LET D=D+7 

1280 IF D < 28 THEN GO TO 1190 
1290 RETURN 
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130© LET D=0 
1310 LET Y =1 
132© LET X=Z+BCY+D) 

1330 IF X<11 OR X >88 THEN GO TO 
1390 

1340 IF R(X)=42 OR R(X)>=BB RND 
RCX)<=RB THEN GO TO 1338 
1350 IF R CX) > =B RND R(X)<=R THEN 
GO SUB 290: IF MMOl THEN GO TO 
1330 

1360 IF MM = 1 THEN RETURN 
137© LET Y=Y+1 

1380 IF Y <8 THEN GO TO 132© 

139© LET D=D+7 

1400 IF D <28 THEN GO TO 1310 
141© RETURN 
14-20 LET D=© 

1430 LET Y=1 

1440 LET X=Z+BCY+D) 

1450 IF X<11 OR X >88 THEN GO TO 
151© 

146© IF RCX)<>E THEN GO TO 1510 
1470 IF RND>.©5 THEN GO SUB 290. 

IF MMOl THEN GO TO 1510 
1480 IF MM = 1 THEN RETURN 
1490 LET Y=Y+1 

150© IF Y <8 THEN GO TO 1440 
1510 LET D=D+7 

1520 IF D <28 THEN GO TO 1430 
153© RETURN 
1540 LET Y =1 
1550 LET X=Z+NCY) 

1560 IF X<11 OR X >88 THEN GO TO 
1608 

157© IF R CX) =42 THEN GO TO 1600 

1580 IF RCX) > =B RND RCX)<=R THEN 
GO SUB 23© 

1590 IF MM =1 THEN RETURN 
ISO© LET Y=Y+1 

1618 IF Y <3 THEN GO TO 1550 
1620 RETURN 
1630 LET Y=0 

164© LET X=Z+NCINT CRND*S+D) 
1650 IF X <11 OR X >88 THEN GO TO 
164© 

1660 IF fi CX) =42 THEN GO TO 1640 
167© LET Y=Y+i 

1680 IF RCX)=E THEN GO SUB 290 
1690 IF MM = 1 OR Y >20 THEN RETURN 


1700 GO TO 1640 
1710 LET YK=1 
1720 LET Z =KM 

1730 LET X =Z +K CYK) : LET X1=X 
1740 IF X<11 OR X >88 THEN GO TO 
2030 



106 Board Games 


1750 IF RCX)=42 OR fliX)>65 AND A 

CX)<83 THEN GO TO 2030 

1760 IF ft(X)>97 AND ACX)<115 THE 

N GO TO 2030 

1770 LET Z=X 

1780 LET Y=0 

1790 LET Y=Y + 1 

1800 LET X=Z+NCY) 

1810 IF X<11 OR X>88 THEN GO TO 


1820 IF ft (X)=N THEN GO TO 2030 

1830 IF Y <8 THEN GO TO 1790 

184-0 LET D=0 

1850 LET Y =1 

1860 LET X=Z*-OCY+D) 

1870 IF X<11 OR X > 88 THEN GO TO 
1920 

1880 IF ft CX) =B OR RCX)=© OR OCX) 
=R THEN GO TO 2030 

1890 IF RCX)<>E THEN GO TO 192© 
1900 LET Y=Y+1 

1910 IF Y <8 THEN GO TO I860 
1920 LET D=D +7 

1930 IF D < 4-9 THEN GO TO I860 
194-0 LET X=Z+11 

1950 IF X > 88 THEN GO TO 1970 
1960 IF ACX)=P THEN GO TO 2030 
1970 LET X=Z-11 

1980 IF X<11 THEN GO TO 2000 
1990 IF ft(X)=P THEN GO TO 2030 
2000 LET X=X1. LET Z=KM 
2010 LET MH=1 

2020 GO SUB 2310: GO TO 4-0 
2030 LET YK=YK+1 
204-0 LET Z =KM 

2050 IF YK <9 THEN GO TO 1720 

2068 PRINT ftT 0,0; FLfiSH 1; “I CO 
needs, Chasp!STOP 
2070 LET X=Z+9 

2080 IF ft(X) > =B ftND RCX)<=R THEN 
LET MM = 1: IF ft(X) =P ftND RND<.2 
THEN LET MM=0 
2090 IF MM=1 THEN RETURN 
2100 IF Z =12 THEN RETURN 
2110 LET X=Z-il 

2120 IF R{XJ > =B ftND fltX) <=R THEN 
LET MM = 1: IF fttX) =P ftND RND<-2 
THEN LET MM=0 
2130 RETURN 

214-0 IF Z —10*- CINT (Z/I0J ) =7 ftND 
ft CZ —1) =E RND ft (Z—2) =E RND Cft(Z-l 
3) =E OR ftCZ —13) =4-2) RND (RCZ+7) = 
E OR ft CZ+7) =4-2) THEN LET X =Z-2: 
LET MM=1: RETURN 

2150 IF ft(Z —1) =E ftND ft CZ —12) <98 
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RND fiCZ+6)<98 THEN LET X=Z-1 LE 
T MM = 1: RETURN 

2160 IF RND<.05 RND ft(Z-l)=E THE 
N LET X =Z — 1: LET MM = 1 
217© RETURN 

218© LET © = INT (RNDiRND*5): IF © 
>U THEN GO TO 218& 

2190 IF ©<U THEN LET ©=©+l 
2208 LET Z =T f©) 

221© IF ft (Z) =PB THEN GO SUB 214-0 

2220 IF ft CZ) =NB THEN GO SUB 1630 

223© IF ft (Z) =BB THEN GO SUB 14-20 

224-0 IF ft CZ) =RB THEN GO SUB 1180 

2250 IF ft CZ) =©B THEN GO SUB 94-8 

2260 IF ft CZ) =KB RND ft$<>"C" RND 
RND<.07 THEN GO SUB 1710 
2270 IF MM =0 RND ©<U THEN GO TO 
219© 

2280 IF MM = 1 THEN GO SUB 2310: G 
O TO 40 

23©0 LET UK =UK +1: IF UK>8 THEN G 
O TO 206© 

2305 GO TO 216© 

2318 IF ft CZ) =KB RND fi*<>"C“ RND 
RND >.1 THEN BEEP .05,-3: LET MM = 
0: GO TO 2180 

2312 IF ft CZ) =PB RND C CX-10*INT C 
X/10)>Z-10*INT CZ/10) OR BBS (X- 

Z)>11)) THEN LET MM=0: GO TO 218 

0 

2314 IF OCX)=K THEN PRINT ftT 0,0 

Check* LET HM=8 

: LET U =U +1: GO TO 190 

2315 LET ft CX) =ft CZ) : LET ft CZ) =E 
232© PRINT ftT ©,B,"l ffloved from 


2330 LET FZ=INT CZ710): PRINT OH 
RS CFZ+64) ; Z-104PZ; •* to ; LET 
FX = INT (X/10) : PRUnIT CHR* CFX+64 

); x — l © jf x 

2340 RETURN 

2350 IF MM =0 THEN GO TO 2370 
236© BEEP 1,RNDf10: BEEP 1,10+RN 
Daf-10 : BEEP 1, —RND *10 
2370 PRINT AT 0,0;" 


RT 4,0;. GO SU 

B 245© 

2380 FOR X =8 TO 1 STEP -1 
239© PRINT TAB 10; INVERSE l;Xj 
INVERSE 0; 

240© FOR Y=10 TO 80 STEP 10 
2410 IF A CY + 1) =PB THEN LET ftCY + 1 
) =©B 

2420 IF RCY+8)=B THEN LET ftCY+8) 
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34-38 PRINT CHR* R (X+Y) J 

24-4-0 NEXT Y: PRINT INUERSE 1,*X; 

NEXT X: LET MM=0 

24-58 PRINT TRB 18; INUERSE lj " fl 
BCDEFGH " 

24-68 RETURN 
24-78 LET Z =KM 
24-60 LET OK =0 
24-98 LET M=Z+K (OK) 

2508 IF R (M) =4-2 OR R (Mi >65 RNI> R 
(Mi < S3 OR MM =0 THEN GO TO 254-8 
2510 LET X=M 
252© LET KM=X 
2530 RETURN 

254-8 IF OK <6 THEN GO TO 2498 
2558 IF R$<>“C“ THEN RETURN 
2560 GO TO 2060 

2570 INPUT “{FROM <LETTER, NUMBS 
R?) ”,R$: BEEP .008,-3 

2568 IF LEN R$<>2 THEN GO TO 257 
8 

2598 INPUT “FROM (R$) , " TOT 
S$: BEEP .006,-10 

2595 IF LEN B*<>2 THEN GO TO 259 
© 

2600 LET X —10* C CODE R*-64) 4-URL R 
$ ( 2 ) 

2618 LET Y = 10* (CODE B$-S4)+URL B 
5 ( 2.1 

2628 INPUT “Enter C - ebeefc 


checfc 

to print b 

oard X - to exchans 

e sides S - to stop ga 

me ENTER - to con tin u 

e ”;fi$ 

2625 IF R(Y)>=75 RND R (Y) <=62 TH 
EN GO SUB 3310 

263© BEEP .006,-3: LET R (Y) =fl (X) 

: LET R (X) =4-6: RETURN 
264-8 RRNDOMIZE : LET MM=0: LET R 
$ = '■** 

2650 DIM R(99): DIM R(26): DIM B 
(283: DIM N(8); DIM 0(563: DIM K 
(83: DIM Z (863 : DIM 5(64-3: DIM T 
(163 

2660 LET P = 112: LET R = 114-: LET N 
=11@: LET B=98: LET 0=113: LET K 
= 187: LET E =4-6 

2670 LET PB=80: LET RB=62: LET N 
B=78: LET BB=66: LET QB=81: LET 
KB =75 

2660 FOR Z = 1 TO 99: LET R(Z)=42: 
NEXT Z 

2698 FOR Z=i TO 64-: RERD X: RERD 
Y; LET R(X 3 =Y; NEXT Z 
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2700 DRTR 18,82,28,78,36,66,4-6,8 
1 

2710 DRTR 56,75,68,66,76,76,88,8 

2720 DRTR 17,80,27,80,37,60,4-7,6 
0 

2730 DRTR 57,80,67,80,77,80,87,3 
0 

274-0 DRTR 16,4-6,26,4-6,36,46,4-6,4 

6 

2750 DRTR 5t? , 4-t> , t?S , 4-t>, 76,4-t> , St> , 4 

2760 DRTR 15,46,25,46,35,46,45,4 
6 

2770 DRTR 55,46,65,46,75,46,85,4 
2780 DRTR 14,46,24,46,34,46,44,4 
2790 DRTR 54,46,64,46,74,46,84,4 

2880 DRTR 13,46,23,46,33,46,43,4 
6 

2810 DRTR 53,46,63,46,73,46,83,4 
6 

2820 DRTR 12,112,22,112,32,112,4 

2,112 

2830 DRTR 52,112,62,112,72,112,8 

2,112 

2840 DRTR 11,114,21,110,31,98,41 
, 113 

2850 DRTR 51,107,61,96,71,110,81 
, 114 

266© FOR Z=i TO 8: RERD N(Z3: NE 

2870 DRTR 19,-19,21.-21,-8,8,12, 
-12 

2S8© FOR Z=i TO 28: RERD R<Z3: N 

2S9©*"dRTR 10,20,30,40,50,60,70 
2900 DRTR -1,-2,-3,-4,-5,-6,-7 
2910 DRTR -1©,-2©,-30,-40,-5©.-6 

0, -7© 

2920 DRTR 1,2,3,4,5,6,7 

2930 FOR Z = 1 TO 28: RERD B CZ3 : N 

EXT Z 

2940_ ? DRTR -11 ,-22 ,-33 ,-44 ,-55 ,-6 

295© DRTR 11,22,33,44,55,66,77 
296© DRTR 9,18,27,36,45,54,63 
2970 DRTR -9,-18,-27,-36,-45,-54 
, —63 

2980 RESTORE 289© 

2998_FOR Z=1 TO 56. RERD O(Z) : N 

3080^FOR Z = 1 TO 8: RERD KCZ) : NE 
XT Z 
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301® MTR 

1 

3020 FOR Z=1 TO S4-; RERD S fZl : N 
EXT Z 

3030 DATA 46,56,36,66,47,57,45,5 
!=% 

304.0 DATA 37,67,35,65,28,76,27,7 

"7 

3050 DATA 44,54,26,76,38,t>8,17,8 
3050 DATA 18,88,34,64,25,75,16,8 
307© DATA 48,24,74,15,85,14,84,4 

3 

3080 DRT fi 53,33,63,23,73,52,42,6 
2 

3090 DATA 32,83,13,72,22,12,82,4 
1 

3100 DATA 51,31,61,21,71,11,81,5 
8 

3110 PAPER 1: BORDER 1: INK 7: C 
LS : RETURN 

3128 FOR 2=11 TO 88: LET Z(Z) =A C 
ZJ : next Z 

313© FOR Z=ll TO 88; LET X=Z-10i 
INI iZ/10J 

314-0 IF X=© OR X=9 THEN GO TO 31 
50 

315© LET R (ZJ =Z (Z-i-9—Xs-21 
3150 NEXT Z 

3170 FOR 2=11 TO 88: LET N=AiZI 
3180 IF M > =8 THEN LET A sZ) =A(Z) i 
P8-P 

3190 IF M <=RB AND M > =88 THEN LET 
R (Z3 =R (ZJ -PB+P 
320© NEXT Z 
3210 RETURN 

3310 LET COMMENT =INT {RND*4G ; BO 
RDER RND*5+2: GO SUB 333©+l©*COH 
MENT 

3320 BEEP 1,1: BEEP 1,2: BEEP 1, 
-3 

333© BORDER 1: RETURN 

334-0 PRINT RT 8,0; "Well done 1 ' G 

O SUB 337©: RETURN 

3350 PRINT RT 8,0;"Good move . G 

O SUB 3370: RETURN 

33S© PRINT RT 0,0;“Got me!“ 

3370 FOR 1=1 TO 10: BEEP ,05,1: 
NEXT X 

338© PRINT AT 0,3;" 

RETURN 
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Here are some board printouts of the early stages in a game 
against NEOPHYTE CHESS: 




Position reached in the early middle stages of another game: 



It is possible to modify the program so that it 'plays against 
itself', by getting it to exchange sides after every move. It will also 
print out a permanent copy of the game by printing the board after 
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every second move. To turn the program into 'auto-chess', modify 
it so the start reads as follows: 


10 REM NEOPHYTE CHESS 
IS LET PR = 1 

20 PRINT '‘PLEASE ENGAGE FLA 

SH 1;"CAPS LOCK”; FLASH 0;”, THE 
N " ,"PRESS ENTER”: INPUT R$: CLS 
PRINT • "ThanK you, please sta 
nd by" 

30 GO SUB 264-0: GO TO 6© 

4-0 GO SUE! 2350 
70 LET MM =0: LET UK=0 
60 IF R$=”S" THEN STOP 
SS LET Ri* = ".Y” 

9© IF R$="X" THEN PRINT RT 0,0 
; FLASH 1;“Exchanging sides”. GO 
SUB 3120: PRINT RT 0,0;" 

”: LET R$="" 

1©0 IF PR =0 THEN COPY : LET PR = 
1: GO TO 110 
105 LET PR =0 

If you do not want a printout, delete lines 15, 100 and 105. 


Here is the start of one game played by the modified program: 



L 


Board Gar 


113 














Board Gar 


By the way, running auto-play games in this way is, as I said 
earlier, a very good way to debug the program, as eventually most 
of the GO TO and GO SUB destinations will be tested. Cut out the 
printout facility if you like, and just let the computer run all day, 
playing game after game. If it stops at any point (other than to 
concede to itself), you'll know more or less where a program error 
has occurred. 

The program was modified slightly further to enable it to choose 
to print out board positions from time to time, rather than after 
every second move. To get these random printouts, the start of the 
program should read as follows: 

10© IP PR=0 THEN LET PR=1 
101 IP PR=1 RND RNDi.l THEN COP 
Y : GO TO 110 
105 LET PR =@ 


Here is a selection of 'snapshots' of one game produced in this 
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If you'd like to read more about chess and computer chess there 
are a number of relevant books and articles, including: 


The Sargon Chronicle Ehara, T.H., Creative Computing, May 1980 (pp. 42-44) 


Attention, Chess Phreaks! Palenik, L„ Creative Computing, January 1979 (p. 78) 

Tumult and the Toronto Tournament Dowhal, D„ Personal Computing, May 1978 
(pp. 98-113) 

A Romanian Rhapsody (source of the story of Felix at the start of this section), 
Friedberg, U., Personal Computing, October 1978 (pp. 76-88) 

Sargon vs. Microchess Martellaro, J„ onComputing, Winter 1979 (pp. 26-30) 

Programming a Computer for Playing Chess Shannon, C.E., Philosophical 
Magazine, vol. 41 (7th series) (pp. 256-275) 

Chess Skill in Man and Machine Frey, Peter W. (Springer Verlag, 1977) 

Technique in Chess Abrahams, G., (Dover Publications Inc., USA, 1973) 
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Adventure/Simulations 

REVENGE OF CASTLE DREAD 

No collection of games programs would be complete without an 
Adventure. I decided that the Adventure in this book should be one 
of the major programs, so wrote the rather formidable-looking (in 
terms of its length) REVENGE OF CASTLE DREAD. The credit for 
producing the first computer Adventure program goes to Crowther 
and Woods, who wrote their program, just called Adventure, on 
the Stanford University mainframe. The computer supported a 
number of terminals on a time-sharing system and the output was 
typed onto long rolls of paper with a unit rather like a Telex 
machine. 

Adventure became immensely popular, and pirated copies were 
soon up and running across America and eventually in Britain as 
well. As more and more computer buffs got their hands on the 
program, they modified and improved it, eventually shaping 
versions which were radically different from the original. However, 
twenty years after Adventure was first up and running, some US 
software companies still sell a program which is billed as 'the 
original Adventure'. 

Writing an Adventure program is a fascinating exercise. In 
essence a self-contained, logically-consistent universe is invented 
and mapped. By 'logically-consistent' I mean that in a properly 
constructed Adventure program the player can cross a bridge to go 
along a road and, on walking back down the road, will find the 
bridge still there, or some convincing reason why it is not there, 
such as 'The aliens from Epsilon IV took it back to their museum 
planet with a matter-transporter'. Random adventures are frus¬ 
trating and offer few lasting challenges to the player. 

In REVENGE OF CASTLE DREAD the action takes place within 
t) castle where there are a number of monsters, including 'an 
angry warlock', 'a fire-breathing Fearbringer' and the loathsome 
'Guardian of the Black Lagoon' who wander about the castle during 
the game and must be fought (although you can attempt to flee 
if you like, with a 50 per cent chance of succeeding). In addition, 
there are up to four chests which hold good and bad surprises, a 
bottle containing a magic potion which may be beneficent or evil. 


and so on. It is unlikely that you will meet all the monsters and 
surprises in every game. 

You will not be given a map of the castle. Part of the fun of 
Adventure-gaming, whether it is with a computer or in one of the 
role-playing sorcerer/dungeon games, is trying to deduce the 
spatial relationships of the various 'rooms' encountered when 
wandering about the environment. The castle in this program was 
mapped in some detail, and I've made sure that the clues given to 
you in the PRINT statements adhere accurately to the relationship 
between the rooms. This was done to both encourage you to map 
the castle as you go through it, and to teach by example how 
'adventure environments' can be constructed. Once you feel you 
have a map which corresponds reasonably closely to the one 
encoded in this program, you can 'wander around' the castle and 
check your map. 

The point of the game is simple and relates to one twist I've 
included to make the map construction a little more difficult than it 
might otherwise be. All instructions within the program are given in 
terms of directions (north, south, east and west) and all doors face 
one of these four directions. You should start your map-making by 
putting the four directions at the top of your sheet of paper. You 
start the adventure at the top of the paper facing down it (that is, 
facing south). The first statement you see includes the following: 

You are at the entrance to an 
ancient , forbidding-looting 
castLfc. You, are s_tanding ort 
the north side of the castle., 
and as you look south 
towards the crumbling 
structure, uou notice the 
entrance portal is open 
and unguarded 

Uhat do you want to do now? 


The last line 'What do you want to do now?' follows every 
description of the environment (apart from a few questions, such 
as 'Do you want to drink the potion?' which demand a "Y" [yes] or 
" N" [no] answer) and can be answered with one of seven answers. 
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Enterthis: 

And the computer will understand you mean 
this: 

"N" 

Move North 

"S" 

Move South (the answer you must give to 
thefirstframe) 

"E" 

Move East 

"W" 

Move West 

"FI" 

Fight 

"FL" 

Flee 


Any other answer at this point will simply cause the screen to 
clear, and it will then be reprinted. ("Q" can be also used to quit the 
game at any point.) 

Role-playing games played with humans and a referee 
('Dungeon Master') generally follow certain conventions which 
dictate that a character's power and personality be determined at 
the beginning of a game by rolling a number of dice and reading the 
characteristics (like 'shrewdness' or whatever) from a table. When 
two characters meet in conflict (dungeon-players call this 
interaction, the high point of the game, the melee), a further set of 
dice-rolling and table-consultation is needed to determine the 
result of the combat. 

To simplify the system so that you are not overwhelmed with 
complex rules to understand before you can enjoy this program, 
I've stuck to the accepted conventions but have ensured that 
the Spectrum does all the work, both of 'generating' your own 
personality and that of the monsters you meet as well as resolving 
any physical clashes you may have. 

The story-line and point of the game is simple. You, as a well- 
known intrepid explorer, have come across this crumbling ruin of a 
castle. Being of intemperately curious disposition, you go through 
the entrance portal in the north wall which you have noticed is 
open. Once you enter the castle through it, you'll find you cannot 
leave through it. You must explore the castle and attempt to find 
another exit. As you stand in the entrance hall 'which is hung with 
rich fabrics' you remember an old legend which is told about this 
castle. The last owner, 300 years before, was a powerful wizard 
who with his dying strength created a legion of horrors to guard his 



Adventure/Simulations 121 


home from intruders. Apart from the northern portal, which is now 
forever magically sealed, the only way out of the castle is via the 
Black Lagoon which is underneath the castle but is reached from 
within it by an ordinary-looking door. It is rumoured that the wizard 
sought to protect his castle even more by creating an unpleasant 
creature of whom nothing is known except his title. The Guardian 
of the Black Lagoon. 

Your personality in this game is encapsulated by three 'attri¬ 
butes', magical power, strength and wisdom. Each creature 
shuffling through all eternity through the decaying rooms of the 
castle is also endowed with these three attributes. The current 
state of your personality appears on the screen as follows: 


When you meet a monster and you decide to battle with him (or 
attempt to flee and are unable to do so), you fight in terms of one 
attribute only, but you can choose which one. Generally, the 
greater the difference in your favour between your particular 
attribute score and that of the monster, the more likely you are to 
win. Therefore, if your MAGIC was 20, and the MAGIC of the 
monster was only 4, and the difference between other attributes 
was less, you'd be advised to choose MAGIC for your melbe. 


You are in the entrance hall, 
which is hung With rich 
fabrics. Doors lead to the 
east and the south., and there 
is an open portal to the 
wes t 

The room contains a fire¬ 
breathing Fearbringer. His 
wisdom is is, while he 
has a strength rating of 
li, and his magic skill 
i s SO 


Uhat do you want to do now? 
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This small room, which 
features an ornate sculpture 
of the moon goddess on a 
pedestal in the north-east 
corner., is the Royal 
Presence Chamber. Doors lead 
to the south, the west and 
to the east 

In front of you is a chest 
labelled with a large « l 

Will you open it CY or N> ? 


Now Wisdom: 

YOU: 15 Guardian: 2© 
The difference is 5 
and the Guardian leads 


This round carries a penalty 
of 31 attribute points 

Rn d you lose 31 wisdom points 


R t the end of the crucial 
battle you have: 

MAGIC: 11 
STRENGTH: 5 

WISDOM: © 

find you've made it, O hero of 
these dark and dan ger ous 
times. I dub thee EBfgSS TIM 


Don't start getting worried at this point if it already seems to be 
getting complicated. The program does nearly all the work for you 
and guides you through the game, ignoring or rejecting bad inputs. 

Each fight gives you the chance of increasing the attribute with 
which you're competing or of having to pay for being 'wounded' by 
losing attribute points. Lose all your points, and the game will 
terminate. You need to acquire as many attribute points as possible 
for the Final Encounter. When you discover where the Black 
Lagoon is located (and - to frustrate you slightly - it can be in one of 
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two locations, so your maps are not 100% transferable from game 
to game) you'll have to engage in three battles, one in each 
attribute, with The Guardian of the Black Lagoon. 

Some of the chests you'll find littering the house may contain 
'dragon's gold' and it is worth acquiring this, because it can be used 
to buy additional attribute points after you've met the Guardian, but 
before you've had to fight. You must come out of this final series of 
battles with at least 10 attribute points altogether to survive. 

Each melee works as follows. Afteryou've selected the attribute 
with which you wish to wage war, the computer will work out and 
display the difference between your scores. If, for example, you'd 
decided to battle with WISDOM and your wisdom score was 15 
while the monster's was 2, the computer would print up (line 5240) 
"The difference is 13", followed by "and you have the advantage", 
meaning your score is the highest. Next, in keeping with role- 
playing games which, as I pointed out before, engage in much dice¬ 
rolling, a six-sided die is rolled and the number that comes up is the 
'cost' of the encounter. A random number is generated between 
one and the difference of the two scores. This is then compared 
with your attribute score, and the monster's score. The winner is 
the one whose attribute point is closest to the difference. You may 
wish to change this so the winner is the one furthest away from the 
random number. If the difference between attribute scores is just 
one, the random number must be one, so the player with the 
lowest attribute score will win (there is a hint in this line for the 
observant which may help you win more than your fair share of 
melbes). I'll leave it to you to work out who wins if the sttribute 
points are identical. 

Now, winning and losing are two quite different things in this 
game. The cost and rewards depend upon the attribute you've 
selected, and your present score for that attribute. 

You select the attribute with which you want to fight by entering 
its initial letter (M for MAGIC and so on) and the computer uses this 
information in the routine from line 5340 to determine the penalty 
or otherwise of the encounter. If you have fought with MAGIC and 
lost, you lose the total value of points rolled on the single die if you 
have at least that number of points to begin with. That is, if you 
have only two MAGIC points, and you lose a fight with a penalty of 
three points, you will not lose any. Again this is simpler in practice 
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(as the computer will work out whether or not the penalty should 
be paid) than it may appear when reading about it. If you lose in an 
encounter when you've chosen STRENGTH as the attribute to 
battle with, again you'll lose the penalty rolled by the die if you have 
at least that number of attribute points to begin with. If you lose 
while challenging with WISDOM, you will only lose half of the 
penalty rolled, rounded down to the next whole number (so if the 
penalty is one and you lose, it costs you nothing, as half of one 
rounds down to zero). 

Winning is much more fun. You can gain more than you can lose 
from a melee using MAGIC. Win with MAGIC and you'll get double 
the die roll. With STRENGTH, you'll get nothing for a victory (which 
is perhaps better than losing, but not much, so you may be advised 
to avoid fighting with strength as you are often no match for the 
muscled monsters), and a win with WISDOM is worth half the die 
roll (as a loss with WISDOM equals a loss of half the die roll). 

The program follows a pre-planned structure so it is relatively 
easy to get at sections of it if you want to modify it. (Once you've 
solved the map encoded in this program you may want to change 
it, in a way which I'll describe in due course, to enable you to use a 
more complicated map which will still be peopled with the same 
monsters and follow the same rules. Once you've mastered that, 
you'll probably want to adapt it to follow an original map of your 
own.) 

The program is structured as follows: 

Lines 20-170 Report (which room you're in, where the exits 
are and the like) and main program cycle 
Lines 2000-2050 Monster descriptions 
Lines 4000-4940 Final Confrontation (the Black Lagoon, the 
three final fights, the ending) 

Lines 5000-5620 Actions (you enter your direction of move¬ 
ment or your desire to flee or fight; fights are 
conducted in this section of the program, and 
rewards and punishments determined) 

Lines 7000-7500 Contents (this section holds such things as 
the four chests, and the bottle of magic 
potion; it is entered randomly from the end of 
the 'actions' section of the program) 


Adventure/Simulations 125 


Lines 8000-8140 Room description, and calls monster sub¬ 
routine 

Lines 9000-9670 Initialize 

Lines 9900-9990 Delay/sound routine (called repeatedly 
throughout the program, to add to the colour 
and give you a chance to read what is on the 
screen before it is cleared) 

The most important part of this program and the key to any 
Adventure program, is the mechanism which 'holds the world' in 
place, determining the relationship between various parts of the 
system, checking potential moves between elements of the 
system to make sure they are legal. From two of the rooms in our 
castle you look out on to the 'Contoured Garden' but you cannot 
get into the garden and walk across it to the other room. (The 
garden has been included because, apart from making the castle 
description more interesting, it gives map-makers a clue which 
should help to tie their castle plan together). 

I am going to explain now how this program keeps track of the 
components of the system, but I do not want you to study it too 
closely before you play the game or it will remove any element of 
enjoyment. Look at lines 9570 to 9680. The DATA statements here 
contain a lot of useful information (and there are a few dummies in 
them, just in case you do decide to try and work out the map armed 
simply with this information). Look at the fourth DATA statement 
(line 9600). The first two elements of the string are the number of 
the room to the north of the room 'held' by that DATA statement. 
There is nothing in that position, so there is no north-facing exit 
from that room. The next two elements tell you that room seven is 
to the south, the next two indicate an east-facing exit leading into 
room two in the castle, and the next two that room five lies to the 
south. The two zeroes after that are used for storing information 
regarding the contents of the rooms. 

You can use this kind of referral within DATA statements to hold 
any map. If I was in the room signified by line 9600 and I said I 
wanted to go north, the computer knows it simply has to look at the 
first two elements of the string that holds that room. If they are 
both zero, it comes back with the information "NO EXIT" and 
requests a new direction. If another number is found there, the 
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variable which is assigneed to the room number (which is Z in 
much of this program) can be set to the VAL of those particular 
elements. This program makes extensive use of Sinclair BASIC's 
very simple string-slicing techniques, holding the monster 
attributes within the elements of the MS array, and your attributes 
in JS. 

It is easy to modify these as the game progresses. If you defeat a 
Fearbringer in one room and reduce his MAGIC to 9, when (and if) 
you meet him again somewhere else in the castle, his MAGIC level 
will be at the reduced rate. Meet a monster enough times and you 
can just about wipe him out. Having monsters remain 'the same 
monster', even if they have blundered into another room, is 
another element which helps keep the Adventure universe self- 
consistent. 

If you had a very simple Adventure universe of just four rooms, 
you might join them as follows: 


5 



The doors are shown on the walls they join. The rooms could be 
designated, using the same system as used in CASTLE DREAD, as 
follows: 

Room one "00030200" (nothing to the north, room three to 
the south, room two to the east, nothing to the 
west) 

Room two "05040001" (note that 'outside' the world needs a 
reference number, such as the five we've used 
here 

Room three "01000000" (not many exits here) 

Room four "02000000" (nor here) 
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Suppose you were in room two. The PRINT statement 
describing the room might say: "You are in a small, square room. A 
door to the outside world is in the north wall, there is another door 
to the south, and one to the west. Where do you want to go? " If the 
player enters " E " the computer looks at the 'east elements' of the 
DATA string which represents room two (these are the fifth and 
sixth ones) and sees there are just two zeroes there. It therefore 
knows the player cannot move, and signals: "You can't walk 
through walls" and waits for a new direction. If the player this time 
enters "S", meaning he or she wishes to move south, the 
computer looks at the south elements of room two's string 
(elements three and four) and finds there "04". This means the 
player is moving from room two to room four. The computer only 
has to set the variable holding the room number to the VAL of the 
indicated elements of the room string, and it knows where the 
player is. Notice that there is no reference, within the PRINT 
statements, to 'room one' or 'room two'. These are for internal use 
only. 

I suggest you enter the program now and run it until you begin to 
understand how it works. This will give you a pretty good idea of 
the floor plan of the castle. The map will be easier to draw if you 
make a series of separate squares on your sheet of paper, labelling 
them with the names of each room as you discover them (such as 
'Hall of Plots') and draw little 'corridors' connecting them. These 
can then loop over and around each other as you gradually lock in 
the relationships and the map can eventually be redrawn neatly 
once you're confident your map corresponds with the one hidden 
in the program. Once you've got this, you can 'wander through'the 
castle at will, checking your map against the real thing. After 
playing the program a few times, return to this book. Following the 
listing, I will discuss some ways of modifying and improving the 
program and give you some more general ideas on writing 
adventure programs. 

10 REM REUENGE OF CASTLE DREAD 

2© GO SUB 9©0S 

3© CL.S 

35 IF U$="000000” THEN GO TO 9 

© 

4-0 PRINT INVERSE 1;N$;"„ your 
attributes are.** 


J 








128 Adventure/Simulations 


Adventure/Simulatior 


129 


5© XF URL (<J$tl TO 23 3 >0 THEN 
PRINT TAB 4-.; INUER5E 1; "MAGIC: “ 

; U$ (1 TO 2) 

6© IF URL IU$(3 TO 4-3 3>0 THEN 
PRINT TRB 4., INUERSE 1; "STRENGTH 
J$C3 TO 4-3 

7© IF URL (<J$(5 TO S3 3 >0 THEN 
PRINT TRB 4-.: INUERSE 1; "WISDOM: 
•\;*J*C5 TO S3 

B0 IF MONEY >0 THEN PRINT TAB 4- 
INUERSE 1; "UERLTH: MONEY 

90 IF »_»$ = •• 000000" THEN PRINT “ 
The adventure has ended","You ha 
ve exhausted all your","powers - 
You fought brave ly","and well bu 
t could not endure","the struggl 
e....Fa rewell...": STOP 
100 GO SUB PAUSE 
110 GO SUB ROOM 

12© LET M=0: IF Z >1 THEN IF RND 
>.5 THEN GO SUB 7000. POKE 23692 
. -1 

13© GO SUB PAUSE 

14-© GO SUB ACTION 

150 GO SUB PAUSE 

170 GO TO 30 

1S0 REM ss-******-****-*-* 

2000 REM MONSTER SUBROUTINE 
2010 IF 0=1 THEN PRINT "There is 
an angry warlock in”,"the room = 
He has a magic", "rating of ";M* 

11.2 TO 33;", his strength","is 
"; M$ (1,4- TO 53;” and his wisdom 
is ";M$ f1,S TO 73 

2020 IF 0=2 THEN PRINT "The room 
contains a fire,"breathing Fe 
arbringer. His","wisdom is ";M$f 
2.S TO 73;", while he", "has a st 
rength rating of",M$C2,4- TO 53, 

. and his magic skill","is ";M$( 

2.2 TO 33 

2030 IF 0=3 THEN PRINT "HorfOfSl 
You've stumbled in on","the hid 
ing place of the awful","Soulthf 
eat. You can see at a", "glance h 
is strength is ";M$f3,4- TO 53;“, 
","his magic ability rates ”;M$i 

3.2 TO 33;",","and his wisdom is 
"; M$ ( 3, S TO 73 

2©4.0 IF 0=4- THEN PRINT "You've t 
ripped over something","in the d 
ark.": GO SUB PAUSE. PRINT "It a 
wakes and you're face to","face 
with Graveipit, the ","Kneecrushs 
r. Grave Ip it's magic", "is ";M$C4- 
,2 TO 33;", his strength is",M$( 


4., 4- TO 53;", and his wisdom is " 
;M$(4-,S TO 73 

2050 IF 0=5 THEN PRINT "Now you 
re in trouble.": GO SUB PAUSE: P 
PINT "This room holds the dreads 
d","enemy of all who enter the”, 
"castle, Uotvling of UoIf Glass, 
"/‘With a strength of ";M$(5,4- T 
O' 53;", wisdom","Of ";H$(5,S TO 
73," and magic of ”;M$C5,2 TO 33 
;", he is an","enemy to approach 
with caution" 

2060 GO SUB PAUSE 
2070 RETURN 

203© REM S-S-S-S-S-S-S-S-S-S-S-S-S-S- 
4000 REM END OF GAME 
4-01© print "You have stumbled on 
to the", "marshy mud surrounding 
the","Black Lagoon underneath th 
e", "castle. To escape from the" 
.."castle, you must fight The" ,"G 
uardian of the Black Lagoon" 

4-020 PRINT "The fight JftUSt invo 
ive a l l ","attributes...and you'l 

1 need","a total of i® to escape 

4-03® GO SUB PAUSE 

4-04-0 IF MONEY >0 THEN PRINT "YOU 
have money," worth of","go id" 
405© GO SUB PAUSE 

4060 PRINT "The Guardian's attr 
ibutei:" 

4-070 PRINT TAB 3; “MAGIC: **;M$IS, 

2 TO 33 

4080 PRINT TAB 3;"STRENGTH: ";M* 
C S . 4- TO 53 

4-090 PRINT TAB 3; "WISDOM: ";M$?6 
,S TO 73 

4-10© print '"Your attributes." 
4-11© PRINT TAB 3; “MAGIC: ";U$Ci 
TO 23 

4-120 PRINT TAB 3; “STRENGTH: ";d$ 
{3 TO 4-3 

4-130 PRINT TAB 3; "WISDOM: ";U$(5 
TO S3 

4-14-0 GO SUB PAUSE 

4-150 IF MONEY <100 THEN GO TO 4-27 
0 

4160 PRINT '"YOU can buy attribu 
te points","for $10© each" 

4-170 PRINT "if you want to buy, 
enter the" , ”initial of the attri 
bute you","want, followed by the 
nunbe r" 

4180 PRINT "of points. Enter 'N' 
if you do","not want to buy" 
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4-130 INPUT FLASH 1; "Attribute? ” 

; e $ 

4-2Q0 XF E$=”N” THEN GO TO 4-270 
4-210 INPUT FLASH l; "Amount? ";AM 
4-22© IF MONEY-AM <1 OR AM <100 THE 
N GO TO 4-210 

4230 IF E$="M" THEN LET TO 

2)=5TR$ (UAL («J$(1 TO 23 3+INT (R 

H/100)3 

4240 IF E$="S" THEN LET «J$f3 TO 
4 3 =STR$ (UAL ( U $ (3 TO 433+INT CR 

H/100)3 

4250 IF E$="S" THEN LET U$(S TO 
63 =STR$ (UAL (U$ (5 TO 6) 3 +INT (A 

H/10033 

4255 PRINT "MAGIC: ";U$(1 TO 2).; 

" STRENGTH: ";U$(3 TO 43,"WISDOM 
: ";<_!$ (5 TO S3;" GOLD MONEY 

4260 LET MONEY=MONEY-AM: IF MONE 
Y>33 THEN GO TO 4130 
4270 CLS : PRINT "Now for the Ul¬ 
timate Test...": GO SUB PAUSE 
4275 INPUT FLASH 1, BRIGHT 1; PH 
PER 2;“Press ENTER when you're fa 
rave enough to fight "/A$: GO 
SUB PAUSE: CLS 
42S0 PRINT '"First, Magic." 

423© LET MH=UAL (U$(l TO 23 3 : LE 

T MG=UAL (M$(6,2 TO 333 

4300 PRINT TAB 3;"YOU: ";MH;“ G 

uardian: **;MG 

4310 LET DIFF =ABS (MH-MG3 

4320 PRINT "The difference is "j 

DIFF 

4330 IF MH >MG THEN PRINT "in you 
r favour" 

4340 IF MG >MH THEN PRINT "and th 
e Guardian has the edge" 

4350 GO SUB PAUSE: LET COST=INT 
iRNDJ ( (MH+MG3 ./23 3 +1 
4360 print '"This round carries 
a penalty ","of COST;" attribut 
e points": GO SUB PAUSE 
437© LET RESULT=INT (RNDfDIFF3+1 
43S© LET RE SHU =ABS (RESULT-MH3 
4330 LET RESGA =ABS (RESULT-MG3 
4400 IF RESHU>RESGA THEN PRINT " 
And you win ";COST;" magic point 
S": LET MH =MH +COST: LET U$(l TO 
23 =STR$ (MH3 : GO TO 4420 
4410 PRINT "And you lose COST; 
" magic points": LET MH=HH-COST: 

LET U$(l TO 23 ="00": IF MH > © TH 
EN LET U$(l TO 2 3 =STR$ (MH3 
443© INPUT FLASH 1; PAPER 7; INK 




Adventure/Simulations 131 


2;"Press ENTER when you're read 
y to continue this crucial 

chaUenge",,fl$: GO SUB PAUSE 
: CLS 

4435 PRINT "NOW Strength:" 

4430 LET MH=UAL (U$(3 TO 433: LE 

T MG=UAL (M$(6,4 TO 533 

45©0 PRINT TAB 3;"You- "; MH; ” G 

uardian: ";MG 

451© LET £>IFF=ABS (MH-MG3 

4520 PRINT "The difference is 

D IFF 

453© IF MH >MG THEN PRINT "and yo 
u're ahead" 

454© IF MG >HH THEN PRINT "With t 
He Guardian in front" 

455© GO SUB PAUSE. LET COST=lNT 
iRND* ( (MH+MG3 .^23 3 +1 
4S60 print "This round carries 
a penalty" .“of ";COST; " attribut 
S points": GO SUB PAUSE 
4570 LET RESULT = INT (RND + DIFF3 +1 
453© LET RESHU=AB3 (RESULT-MH3 
453© LET RESGA=ABS (RESULT-MG3 
460© IF RESHU>RESGA THEN PRINT " 
And you win ";COST;" strength po 
ints": LET MH=MH+C-OST: LET U$(3 
TO 4 3 =STR$ (MH3 : GO TO 4630 
4610 print "And you lose ";COST; 
“ strength points": LET U$(3 TO 
43="G0": IF MH>© THEN LET MH=MH- 
COST: LET J$(3 TO 4 3 =STR$ (MH3 
467© LET RESULT = INT (RNDSDXFF3 +1 
466© INPUT FLASH 1; BRIGHT 1; PR 
PER 2; INK 7;"Now for the final 
challenge Press "; INUERSE 1 

"ENTER"; INUERSE O; ” when you d 
are",A$: GO SUB PAUSE: CLS 
4635 PRINT "NOW UiSdom." 

4630 LET MH =UAL (U$(5 TO 63 3: LE 

T MG =UAL (M$(6.6 TO 73 3 

47©0 PRINT TAB 3;"YOU: ";MH;" G 

uardian.- ";MG 

471© LET DIFF=ABS (MH—MG3 

472© PRINT "The difference is "; 

DIFF 

473© IF MH >MG THEN PRINT "and yo 
u're ahead" 

4740 IF MOMH THEN PRINT "and th 
e Guardian leads" 

4750 GO SUB PAUSE: LET COST=INT 
(RND*(MH+MGJ 3 +1 

476© print '"This round carries 
a penaity/’of ";C-OST;" attribut 
e points": GO SUB PAUSE 
4770 LET RESULT =INT (RNDS-DIFF3 +1 
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4-780 LET RESHU =RBS (RESULT-MH) 
4-700 LET RESGH =RBS (RESULT-MG) 
4-80© IF RESHU JRESGR THEM PRINT " 
and you win ";COST; " wisdom poin¬ 
ts" . LET MH=MH+COST: LET U$(5 TO 
S) =STR$ (MH) : GO TO 4-820 
4-810 PRINT "find you lose '; CO ST; 
" wisdom points": LET MH=MH-COST 
: LET J$(5 TO 6)="00". IF MH>0 T 
HEN LET «J$(5 TO S)=STR$ (MH) 

4-850 LET R=URL tU$(l TO 2)) 

4-860 LET B=URL (J$(3 TO 4-)) 

4-870 LET C=UAL (U$(5 TO 6) ) 

4-880 GO SUB PAUSE 

4398 PRINT "fit the end of the c 
ruciar/'battle you have." 

4800 PRINT TfiB 3;"MAGIC: ";fi 
4810 PRINT TfiB 3;"STRENGTH: ";B 
4.920 PRINT TfiB 3; "WISDOM. ”;C 
4-930 IF fi +B-5-C >9 THEN PRINT FLR 
SH 1; BRIGHT 1; PAPER 7; INK 2;“ 
find you've made it, O hero of”,” 
these dark and dangerous","ti»es 
- I dub thee INVERSE 1,"Sir"; 

INVERSE 0.:” ";N$: GO SUB PAUSE: 

STOP 

4-94-0 PRINT "So it is all over. Y 
ou needed”, "at least 10 points t 
otal to”."escape the clutches of 
the"."The Guardian" 

495© PRINT "You fought valianti 

y. but now", "will be consul- - 

The", "Guardian.” 

496© GO SUB PAUSE: STOP 
4970 REM ************** 

5080 REM ACTION SUBROUTINE 
50©5 LET D=4: IF B$(Z,9)=”0” THE 
N LET D=1 

5©10 PRINT "What do you want to 
do now?” 

5015 INPUT Z$. IF Z$="G" THEN ST 
OP 

5020 IF Z$="” THEN CLS : LET Z$~ 
"tt" 

5022 IF D =4 AND 7*fl' * •> "F" THEN 

LET D—0: GO TO 3io0 

5025 IF Z$ ! 1) ="F” THEN GO TO 513 

0 

5©3© IF Z$=”N" AND B$(Z,1 TO 2> = 
"00" THEN PRINT ,"NO EXIT”: GO T 
O 501© 

5040 IF Z$ = ”S” AND B$ (Z,3 TO 4) = 
”00" THEN PRINT "THERE IS NO DOO 
R THAT WAY". GO TO 5010 
5050 IF Z$="E" AND B$(Z,5 TO 6)- 


io ib: h in Wj mo mo mo to f- 
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"80" THEN PRINT "THAT IS NOT POS 
IBLE”. GO TO 5O10 

06© IF Z$="W" AND B$(Z,7 TO 8)= 
00" THEN PRINT "YOU CAN'T WALK 
HROUGH WALLS": GO TO 5010 
070 IF Z$="N" THEN LET Z=VAL (B 
(Z,l TO 2)): RETURN 

080 IF Z$="S" THEN LET Z=VAL (B 
(Z .3 TO 4)): RETURN 

090 IF Z$=”E" THEN LET Z=VAL (B 
(Z,5 TO 6)): RETURN 

108 IF Z$="W" THEN LET Z=VAL IB 


CZ,7 TO 8)). 
11© IF Z$ (1) 
130 IF B $ (Z. 


RETURN 

{ >"F" THEN RETURN 
9)="0" THEN PRINT 


5140 IF Z$="FL" THEN LET D =INT i 
RND*2) 

515© IF D=1 THEN PRINT "Which di 

rection?”: GO TO 5©15 

5160 IF D=0 THEN PRINT "NO!! YOU 
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332© LET RESMO =flE-S (RESULT—MON) 
5330 IF RESHU<RESMO THEN GO TO 5 

390 

534-© PRINT ' ' ELRSH 1; PAPER Si 
INK 6;"You have been beaten!” 
3350 IF Z$=”M” THEN LET M$CG.-2 T 
G 3)=STR$ (URL (M$(©,2 TO 3)) +2* 
COST); IF URL (U$(l TO 2) ) > =COST 
THEN LET U$(1 TO 2)=STR$ (URL C 
U $(1 TO 2))-COST) 

5360 IF Z$=”S" AND URL ( U $ (3 TO 
4.) ) > =COST THEN LET U$ (3 TO 4-) =ST 
R$ (URL ( U$ ( 3 TO 4.) ) -COST) 

5370 IF Z$="U" THEN LET M$(©,6 T 
O )=STR$ (URL iH$iO,6 TO 7))+INT 
(COST/23): IF URL (U$(5 TO 6))> 
=COST THEN LET U$(5 TO 6)=5TR$ C 
URL (J$(5 TO S))-COST) 

53S0 GO TO 54-4-0 

5330 REM HUMAN UICTORY 

54-00 PRINT ' FLRSH 1; BRIGHT 1; 

INK 6; PRPER 2;"YOU have defeat 
ed hi Si" 

54-10 IF Z$="M" THEN LET J$(l TO 
2)=STR$ (URL (U$(l TO 233+2fCOST 
): IF URL (M$fO,2 TO 3) ) > =COST T 
HEN LET M$(© } 2 TO 3) -STR$ (URL * 
M $(0.2 TO 3) ) -COST) 

3420 IF Z$="S" THEN LET M$(©,4 T 
O 5)=STR$ (URL (M$(D,4 TO 5)3-CO 
ST) 

5430 IF Z$='U” THEN LET (5 TO 
6)=STR$ (URL (U$(5 TO 6))+ INT (C 
OST/2)): IF URL (M$fO,6 TO 7))>= 
COST THEN LET M$fO,S TO 7)=STR$ 
(URL (M $ (0/6 TO 7) ) -COST) 

3440 GO SUB PAUSE 

5450 PRINT "After that fights yo 
or/’attributes are:" 

546© PRINT TRB 3;"MRGIC;J$(1 T 
O 2) 

5470 PRINT TRB 3; "STRENGTH: S 

3 TO 4) 

5460 PRINT TAB 3;"UI5DOM;U$(5 
TO 6) 

5430 PRINT '"find those Of the " ; 
55©0 IF 0 = 1 THEN PRINT "Bar lock" 
551© IF 0=2 THEN PRINT "Feafbrin 
3 e r " 

5520 IF 0=3 THEN PRINT "SOUlthre 
at" 

5530 IF 0=4 THEN PRINT "Knee CPUS 
He r " 

5540 IF 0=5 THEN PRINT "Uolvting 
5550 PRINT "are." 
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5560 PRINT TRB 3; "MRGIC. ";M$(©, 

2 TO 3) 

5570 PRINT TRB 3;"STRENGTH. ”;M$ 
(0/4 TO 5) 

5560 PRINT TRB 3;"WISDOM. ";M$KO 

..6 TO 7) 

553© GO SUB PAUSE 

560© PRINT "Press ENTER to COnti 

nue " 

561© INPUT T$. GO SUB PAUSE; CL5 


5620 LET K =2 + INT (AND*6) 

563© IF K=Z THEN GO TO 5620 
5640 LET B$(K,9)=B$(Z,9) 

5650 LET B$(Z,3)=”0" 

566© IF RND>.5 THEN RETURN 
?©00 REM CONTENTS 

7005 IF B$ (Z,3) < >"©" THEN LET M = 
RETURN : REM DOES NOT ALL DU 
IF MONSTER TO BE 


GO SUB 7000 +100 fINT 


CONTENTS' 

FOUGHT 
7010 PRINT 
(RND*5+1) 

7020 GO SUB PAUSE 
7030 RETURN 

71©0 LET CHEST=CHEST+1: IF CHEST 
=5 THEN RETURN 

7110 hRINT "In front of you is 3 
chest”., "(a be (ted with a large tt 

”;CHEST 

712© PRINT '"Wilt you open it (V 

o r N) ?" 

713© GO SUB 760© 

7150 IF Z$=”N" THEN RETURN 

7160 LET J=INT (RND *3) : GO SUB P 

RUSE 

7170 IF U=0 THEN LET CASH=10©+IN 
T (RND *300) : PRINT "It holds Dr -3 
gon's gold","worth $";CASH; "!": 
LET MONEY=MONEY+CRSH: RETURN 
716© IF <J = 1 THEN PRINT "R goblin 
leaps ou t , ” , "s tabbing you.*": LE 
T LOSS =INT (RND*6) +1: IF URL (U$ 
(3 TO 4))—LOSS>=0 THEN LET U$(3 
TO 4)=STR$ (URL (U$(3 TO 4))-LOS 

5) ; RETURN 

7130 IF U=2 THEN PRINT "A strang 
e srooKe coroes out of", "it, roaKin 
g you sleepy and","sapping your 
magic power". LET LOSS=INT (RND* 

6) +1; IF URL (U$(1 TO 2) ) -LOSS > = 
0 THEN LET U$(1 TO 2)=5TR$ (URL 
CU$(i TO 2))-LOSS): RETURN 

720© IF POTION=1 THEN GO TO 7010 
7210 LET POTION=1 


J 
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722® PRINT "You see a smal l bo11 
le engraved" 

723® PRINT "With curious^ twists 
d letters." 

724-® PRINT ”Ui l l you drink the p 
o tion" j "inside it CY or N)?" 

725© GO SUB 760© 

726© IF Z $ ="N" THEN RETURN 
727© GO SUB PAUSE 

72S© IF RND >.6 THEN PRINT "It CO 
ntained a potion to","enhance mo 
ur wisdom": LET U$ C5 TO 63=STR$ 
CURL CU$C5 TO 633=INT (RND*6+1J} 
RETURN 

.'22© PRINT "it contained a potio 
n whic h " ,"weakens you, sending y 
OU","tO Sleep”: GO SUB PAUSE: LE 
T LOSS = INT SRND*63+1: IF UAL CU$ 
C3 TO 4-3 3 {LOSS THEN RETURN 
7235 LET U$C3 TO 40 =STR$ CUAL CU 
$13 TO 4-3 3 —LOSS3 : RETURN 
7300 IF SCROLL=1 THEN RETURN 
731© LET SCROLL=1 

732© print "You see a papyrus sc 
roll.","Do you wish to read it c 
v or N3 ?" 

7325 GO SUB 760©: IF Z$="N" THEN 
RETURN 

733® IF RND>.5 THEN PRINT "YOU C 
annot understand", "the language. 
": GO SUB PAUSE: RETURN 
7335 print "it contains a magic 
spelt. Do","you want to read it 
lY or N3?" 

734-0 GO SUB 7600: GO SUB PAUSE: 
IF Z$="N" THEN RETURN 
735® IF RND >.5 THEN PRINT FLASH 
1; BRIGHT 1, INK 7; PAPER 2;"It 
was a beneficent spell": GO SUB 
PAUSE; LET U$C1 TO 23=STR$ CUAL 
CU$tl TO 233+INT CRND*6+133: RET 
URN 

7360 PRINT PAPER 2; INK 7; FLASH 
l; BRIGHT l;" it was an evil s 
pellI}!",: GO SUB PAUSE: IF UAL 
iU$C3 TO 4-3 3 >5 THEN LET U$C3 TO 
4-3 =STR$ CUAL CU$C3 TO 4-3 3 -INT CR 
ND*6+13 3 : RETURN 

74-00 IF SAFE =1 THEN GO TO 7010 
74-05 LET SAFE =1 

74-1© print "On the wall is a sma 
U, gi lded","safe, and in front 
of","it is a key" 

74-15 print '"Do you want to open 
the","safe lY or N3" 

74-20 GO SUB 7600 


74-25 IF Z$ = ”N" THEN RETURN 
74-30 IF RND >.3 THEN GO TO 74-6© 
74-35 GO SUB PAUSE; PRINT "A Sh f 
aeking harpy flies out","and sin 
Ks its teeth into", "your throat! 

74-4-0 GO SUB PAUSE 

7A4-5 PRINT "YOU grapple with it 
and : GO SUB PAUSE: PRINT ". . 

.finally wring its neck" 

74-50 IF UAL CU$C3 TO 4-3 3 >5 THEN 
LET U$C3 TO 4-3 =STR$ CUAL ! U$ f3 T 
O 4-3 3 -INT CRND*6+13 3 
74-55 GO SUB PAUSE; GO TO 7620 
74-6® print "A choir of angelic v 
Dices is", "heard"; GO SUB PAUSE: 

PRINT "You are refreshed and he 
a led" 

74-80 LET <J$ (3 TO 4-3 =STR$ CUAL tU 
$ C3 TO 4-3 3 +INT CRND*6+I3 3 
74.9© RETURN 
7500 GO TO 710© 

7530 LET Z $ = INKEY $ 

7610 IF Z$<>"N" AND Z$<>"Y" THEN- 
GO TO 760© 

7615 PRINT 

762© BEEP .5,1; BEEP .5,2: BEEP 

.5,-1; RETURN 

7630 REM ************** 

300© REM ROOM CONTENTS 
3®1® IF Z=1 THEN PRINT "YOU are 
at the entrance to an" , "ancient , 
forbidding-looking","castle. Yo 
u are standing on","the north si 
de of the cast le,","and as you l 
ook south","towards the crumblin 
g",“structure, you notice the"," 
entrance portal is open”,"and un 
guarded" 

6020 IF Z=2 THEN PRINT "YOU are 
in the entrance hall,","which is 
hung with rich","fabrics. Doors 
lead to the","east and the sout 
h, and there",“is an open portal 
to the","west" 

3030 IF Z=3 THEN PRINT "This is 
only a store room"The re is a 
single exit, back","the way you 
came in,"," to the west" 

3©4-0 IF Z =4- THEN PRINT "This sm 
ll room, which" ,"features an or 
ate sculpture","of the moon god 
ess on a","pedestal in the nort 
-east","corner, is the Royal",” 
resen ce Cham be r. Doors iead"."t 














n can sometimes be 
night- There is a*'-" 
door to the north";, if e$(ll ,3 
TO 4) ="12" THEN P.RI.NT " and","p.O 


e to the sooth" 

812© PRINT : IF 2=12 THEN GO TO 
4.00© 

8125 IF Z < > 1 THEN IF B$ (Z,91 = "0” 
RND RND >.55 THEN LET B$(Z,9)=ST 
R$ (INT IRNDS6)): REM DELETE 
FOR LESS MONSTERS 
313© IF B$ (Z,31 i>"0" THEN LET Q = 
URL (B$(Z,911: GO SUB 2000 
814.0 RETURN 

S15© REM ******** + *3-*.*.*. 

^©0© REM INITIALISE 
901© RANDOMIZE 
302© LET Z=1 
303© LET PfiU5E=9900 
304.0 LET ROOM =8000 
3050 LET ACTION =500© 

9080 LET MONEY=© 

307© LET C-HEST =© 

308© LET POTION=0 
3038 LET SCROLL=0 
3100 LET SAFE=© 

311© DIM B $ ( 12 j. 10.1 
312© DIM DIM J$ (61 

313© POKE 23832, — 1: POKE 23658,8 
314.0 INPUT "Uhat is your first n 
ameT ";N$ 

915© PAPER 1. INK 7: BORDER 1; C 

B x 5z, PRJNT " Hi there, **;N$. prim 
T Please stand by--," 

332© REM FILL ROOMS 
333© FOR T = 1 TO 12 
934-0 RERD T$ 

9350 LET B$ (T1=T$ 

3360 NEXT T 

3365 LET B*(C18+INT (RNDS2)),3 T 
O 4-J =“ 12’* 

937© REM DISTRIBUTE RND 
CREATE MONSTERS 

938© LET M$ (1,1) =STR$ t INT (RND si¬ 
s'.« +1) 

3390 FOR R =2 TO 5 

94-80 LET M$(R,11=STR$ (INT (RND* 
3.1 +11 

94-4-0 LET B$(UAL CM* (R , 11 1 , 91 =M$ C 
R , 11 
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34.5© NEXT fi: LET B$ i 1 ^ ="©" 

34.60 REM CHfiRflCTER I ST IC S 
94-70 FOR R = 1 TO 6 

34-60 LET TO 31 =5TR$ ( TNT 

(RND*11)+10) 

94-90 LET M$£R,4 TO 51 =STR$ (INT 
CRND+11)+101 

9500 LET M$(R,6 TO 7)=STR$ fINT 
s'RND+11) + 10) 

3510 NEXT R 

952© REM HUMAN CHARACTERISTICS 
9530 LET U$(I TO 2)=STR$ (TNT (R 
ND+111+10) 

954-0 LET U$(3 TO 4-1 =STR$ (INT I'R 
ND + 11) +10) 

955© LET U$(S TO S)=STR$ (XNT CR 
ND *11) +10) 

9560 RETURN 

9570 DATA "0002000000" 

353© DATA "0008030400" 

9590 DATA "0000000200" 

360© DATA "0007020500" 

961© DATA “0006040000" 

362© DATA "0510070000" 

363© DATA "04-00000600" 

364-0 DATA "0200090000" 

365© DATA "0011000800" 

366© DATA ”©500000000” 

367© DATA "©300000000" 

3660 DATA "©000000000" 

3690 REM PAUSE ROUTINE 

3900 POKE 23692,-1: IF RND>- 5 TH 

SN GO TO 9950 

9905 FOR I=RND*10 TO RND+30+1® S 
TER - 5 

991© BEEP 0.03,1 

3920 NEXT I 

393© PRINT 

994-0 RETURN 

395© FOR 1=1 TO 50 

3960 IF RND>.7 THEN BORDER RND*7 
3970 NEXT I 
3930 BORDER 1 
939© GO TO 9930 


Now that you've survived (or otherwise) in CASTLE DREAD 
Mark I, you may want to save it and make the following changes to 
produce Mark II which uses a more complicated map. Modify the 
following lines and you're ready to start tackling the whole thing 
again. Unfortunately for conservationists, the Contoured Garden 
(which was more like an interior courtyard in the first castle) has 
had to be moved outside. At least, it can still be seen out of the 
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","co»es the ssell of sulphur an 
d","a weird chanting- THE WINDOW 
".•TN THE NORTH UALL OVERLOOKS” , 
"THE CONTOURED GARDEN” 

S060 IF Z=6 THEN PRINT "YOU have 
entered the Uizard's"/'Den, wit 
h a cauldron bubbling”,"over a f 
ire with green flames", "in the s 
outh west corner/'/This room re 
eRs of burning",‘‘sulphur, and th 
a echo of’/'ancient spells. You 
can leave", "to the north, the WE 
5T","or to the east" 

S070 IF Z=7 THEN PRINT "YOU find 
yourself in a p lace" , "which see 
as quiet and peaceKui-","This is 
the castle's Picture","Gallerg, 
with a large painting”,"of the 
legendary Guardian","of the Blac 
K Lagoon to the","left of the DO 
OR in the","NORTH wall.",,"Exits 
from the Gallery are", "to the n 
orth and to the ERST" 

SOS© IF Z=S THEN PRINT "This is 
the most magnificent","room in t 
he castle, the","Great Hall, wit 
h a massive","hammerbeam roof. Y 
ou can","leave it bu the double 
doors","to the SOUTH, or by thos 
e to","the NORTH FROM WHERE you 
can","hear music playing.": REM 
DELETE REFERENCE TO GRRDEN 
S03© IF Z=3 THEN PRINT "Sounds O 
f a string qoartet","fi l l the ro 
oa, the" , "ausicians' chamber. Yo 
u can","leave by doors to the Efl 
ST or","by one to the south" 

S©35 REM NOTE THRT 'IF/THENS' 
REMOVED FROM NEXT 
TWO LINES 

BIS© IF Z=l© THEN PRINT "YOU are 
now in the Sanctuary of","Silen 
ce, a room whose","ca imness may 
be a deception.","The room is da 
rap and cold- An", "exit leaves th 
e room to the","WEST and one lea 
ves","to the south" 

6110 IF Z=ll THEN PRINT "This mu 
st be the Vestibule","of Sighs, 
a dank and clammu", “room where l 
egend says the","Guardi an of the 
Slack","Lagoon can sometimes be 
"."heard at night- There is a"," 
door to the north and", “one to t 
he EAST” 
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There is no reason at all why you cannot continue to work with 
this program, developing as many versions of CASTLE DREAD as 
you like. You can stick with the same room names and the same 
number of rooms (12), working out your own map and relevant 
DATA and PRINT statements, then throwing away the map and 
trying to forget its details as you enter a castle of your own creating. 
You may preferto swap castles with friends and attempt to map out 
the realities they have encoded in their own variations of my 
program. 

Although you need to produce a world that is mappable (for 
without this you may as well just be pressing ENTER and 
generating PRINT statements), there is no reason why you cannot 
make your room inter-connections as fiendish as you can manage 
in two dimensions. It is also relatively simple to add more 
monsters, whether they are to crowd out the original castle, or 
more sparsely populate some new castle of your own devising. 

Once you're confident with this you can double the number of 
rooms, increasing the BS array to take account of this and—of 
course—adding to the DATA statements which are fed into the 
elements of BS, and the PRINT statements which link in with each 
room. You should not, however, tackle this until you're fully 
conversant with both my original map and the way it is encoded, 
and you've worked on a few variations of CASTLE DREAD with 12 
rooms. Monsters are held within the MS array. 

Perhaps the easiest changes to make to the original program are 
to the contents of the chest, the effect of drinking the magic potion 
and the result of reading, or attempting to read, the 'papyrus scroll'. 
At the moment the program will not present the scroll, the 'small, 
gilded safe' or the potion more than once in a game, and only four 
chests will be discovered in any particular castle layout. However, 
while the program will not produce more than four chests, there is 
no mechanism in the program's present form for ensuring that the 
same things don't leap out of different chests every time you open 
them. (Once you've been nipped on the throat by four harpies, 
each of which will reduce your STRENGTH attribute, you may wish 
there was some way of stopping them from breeding in every 
chest in the castle.) 

You may have felt that to some extent, it is a pity to have a 
computer with the graphics capabilities of the Spectrum and have 
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all of the output in written form, even if it is highlighted with 
FLASH, INVERSE and BRIGHT. There is no doubt that some 
players prefer programs which draw up complete pictures of each 
scene. However, the listing is already very long and I believe that if 
it was much longer few would face typing it in. Programs which 
create detailed pictures tend to be a maze of DRAW and PLOT 
statements and you need a great number of lines to produce a 
worthwhile picture, far more than I feel is warranted. By all means 
dress up the program to your heart's content once you have it j 
running. Even if you don’t want to add new rooms, monsters or 
contents, you may still want to enhance it by adding pictures. I'd be 
very interested in seeing graphic-enhanced, or any other variations 
of this program which you've developed. Please send them to me 
care of the publisher. Who knows, we may be able to include the 
best ones in subsequent editions of the book. 

Even if you don't want to go so far as to include vast blocks of 
code which draw complete rooms, you may wish to give rooms 
specific colours, and you may want particular monster descriptions 
to be always printed in the same colour combinations, perhaps 
with a distinctive 'signature tune'. Notice the lines from 2010 to 
2050. You can easily insert the colour information and the music for 
the signature tune in these lines, following 'IF Q = THEN'. Another 
alternative to full detailed graphics of each room is to user-define a 
block of four graphic characters for each of the five monsters and 
use these to produce a characteristic border when the particular 
monster is mentioned. You could, in fact, fill the whole screen with 
multiples of this group of defined graphics before you clear the 
screen to the relevant print statement and/or signature tune. 

Other scenarios 

Even if you have not totally worked out the map used in CASTLE 
DREAD but you'd like to make the adventure program more your 
own, there are significant changes you can make. Assuming you 
keep the exits and entrances in the same places, there is no reason 
why you can't call the rooms anything you like. You could, for 
example, set the whole adventure on board an abandoned space 
ship, left in a slowly decaying orbit out beyond the asteroid belt by 
an unknown alien race. Instead of (or as well as) 'monsters', you 
could have dangerous alien artifacts, like semi-sentient androids 
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whose job is to patrol the ship, even though the race they are 
guarding has long since departed. The object of your search could 
be the power drive, which you would expect to be an example of a 
radically advanced technology. Once you find the room (the one 
which is the Black Lagoon in Castle Dread), you find a massive. 
Spectrum-controlled defence system which must be defeated. 

Instead of MAGIC, STRENGTH and WISDOM, your attributes 
could be more down to earth (if you'll excuse the phrase, out here 
beyond the Belt), including such things as oxygen, food rations and 
shots left in your laser gun. You can change not only the nature of 
the attributes with which you tackle the adventure, but add more 
(such as charisma, ability and stamina). The player could be allowed 
to, say, allot 90 points as he or she wishes among the attributes at 
the start of the game, rather than have them determined by a roll of 
dice (or the random number generator which is pretty much the 
same thing). 

Another way to allot starting attributes is to allow your player to 
choose the type of person he or she will be (cleric, magician, ogre, 
fighter, thief, elfling or whatever). Specific 'clusters' of attributes 
come with each identity. 

Our original program framework can be used to house a pyramid 
which you are exploring before it is destroyed to make way for a 
new dam on the Nile. You go through various tunnels, exploring 
chambers within the pyramid, until you come to the burial chamber 
(the Black Lagoon in Castle Dread) where you must overcome the 
curse of the dead Pharaoh. 

From these ideas, you can see how easily an adventure 
framework can be elaborated and enhanced so that, eventually, it 
bears little or no resemblance to your starting program. Once 
you've gained some confidence in manipulating encoded realities 
in this way, you will probably be itching to write your own 
programs. You can gain a lot of ideas by looking at commercial 
adventures available for the Spectrum, or for other computers. 
Some of these, perhaps surprisingly, are not based on 'coherent 
realities' and depend more on random numbers than on any real 
skill in mapping or memory by the player. 

You may wish to experiment with interweaving different 
programs, adding a 3-D maze at one point, ora reaction test or two 
to see how you fare in combat. 
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Finally, keep in mind that when writing an adventure program it is 
essential to ensure that there is a clear purpose to the game 
(wandering aboutaimlessly, collecting treasure and killing dragons, 
is worthless and eventually very boring, unless the player is on the 
way to solving some final problem, getting some ultimate treasure 
or escaping from the torture chamber alive). As well as a purpose, 
the activities within the adventure should be related to that final 
purpose. 

In CASTLE DREAD, you try to acquire enough attribute points 
and money (which can be exchanged for attribute points before the 
battle with The Guardian) to handle the final melee and still have 
ten points in reserve, so each encounter (such as opening a chest, 
for the chance of making money, ortackling a monster which has a 
very low rating in some particular attribute) is seen to be related to 
the main purpose of the game. Of course, there is a great deal of 
fun in decoding the map of an adventure and in just plain wandering 
around in a counterfeit reality, but it makes much more point if the 
player knows why he or she is exploring this most unusual 
environment. 

If you want to learn more about role-playing games, with the 
intention of using your new ideas in program developments of your 
own, you may find the following three books useful (I was reading 
the first one, in fact, when I thought of the scenario for CASTLE 
DREAD): 

Fantasy Role Playing Games Holmes, Eric J. (Arms and Armour Press, 1981) 

Dicing With Dragons, an Introduction to Role-Playing Games Livingstone, Ian 
(Routledge & Kegan Paul, 1982) 

What is Dungeons and Dragons* - Butterfield, John, and Honigmann, D. (Penguin 
Books Ltd., 1982) ("Dungeons and Dragons is a registered trademark registered in 
the U.K. in the name of T.S.R. Hobbies, Inc., of Wisconsin, U.S.A., who also hold 
American rights to the name). 

JOE CAPITALIST, JNR. (Lemonade Stand) 

You are Joe. Your mission: to run a lemonade stand and make a 
fortune (or at least, not go bankrupt). The program leads you 
through the decisions you need to make, step by step, and makes 
particularly effective use of the Spectrum's colour and high 
resolution graphics to enliven the program as it unfolds. It even 


Adventure/Simulations 147 


features a portrait of you, as Joe, behind the counter of your 
lemonade stand. Don't be misled by the sample printouts shown 
here; the program's graphics are far more effective than the 
printouts suggest. 

Once the program gets under way, it will be pointed out to you 
that you are now the owner of a drinks stand selling lemonade. 
Each day you'll be told the weather forecast. Hot weather means 
many sales; a dull day suggests that lemonade will not hit the 
number one spot on today's chart of the Top Ten Beverages. From 
the forecast and from the marketing knowledge you will gradually 
acquire by running the program, you have to decide how many 
glasses of lemonade you will make. You'll be told how much each 
glass costs to make. You must then decide what price you'll put on 
each glass of lemonade. Of course, higher prices will tend to 
depress sales. At the start of the game, your stand will cost you 
50p rent a day. This will become more expensive as time goes on, 
due to inflation. Inflation will also erode your profits, as raw 
materials increase in price. 

The sample run shows the kind of information you'll have to 
work with each day: mild weather, a raw material price of 2p per 
cup of lemonade, rental of 50p, and the fact that your capital stands 
at £20. From this report you decide how many glasses of lemonade 
you will make, and this number of glasses appears. The program 
now draws the drink stand, complete with a number of full glasses 
of lemonade, with a little sign showing the retail price. 

Right before your eyes the cups of lemonade are sold (that is, 
they are emptied). At the end of the day, the shutter rolls down on 
your stand and you are told how well you have done in the program. 
"You sold 20 cups; You took £1; you made 20 cups which cost you 
£0.4; rent cost you 50p; you have profited by £0.1" is the kind of 
report you'll get. 

The DATA statements in lines 15 and 20 represent the empty (e) 
and full (f) glasses respectively. The next DATA statement, line 25, 
contains the weather reports and the numbers which govern the 
effect certain types of weather will have on sales. The INK colour is 
set to black, the screen is set to normal brightness and cleared (line 
45) before lines 50 and 60 define the graphics, reading the 
character in line 50, and POKEing the relevant DATA in line 60. 
After a BEEP in line 70, a function is defined in line 80 which is used 
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in line 840 to determine how many glasses of lemonade are sold 
per day. 

Lines 100 to 160 print out the instructions and after a pause (see 
PAUSE 900 in line 160), the words "Good luck!" appear. Line 170 
produces, with FLASH, the familiar statement "Press any key to 
begin". PAUSE 0 holds the display indefinitely until a key is pressed 
(the ZX81 equivalent was PAUSE 4E4 or PAUSE 40000) and the 
screen is cleared. 

The variables are initialized in line 160, using explicit names so 
you know—when tracing through the program—what the various 
lines do. Your starting money (variable name cash) is set at 2000; 
the weather at 4; the lemonade raw materials price at 2; and the 
rent at 50. Lines 200 to 220 choose the weather and line 230 starts 
the report. Line 250 RESTORES the data pointer to line 25 which 
holds the weather words and related numbers. The numbers 
(given the names from and to) are used in line 840 
which works out how successful you've been on a particular day. 

You are told the state of your finances in line 290 and asked how 
many cups of lemonade you wish to make. If you suggest a 
negative number, line 302 rejects your answer and returns you to 
line 300 to answer again. Line 305 sends the Spectrum scuttling to 
the subroutine from line 9000 which checks to see if you have 
enough money to buy as many cups as you have ordered. If you 
have, the subroutine returns instantly. Line 9010 is reached if 
you've tried to buy more cups than you have, and it points this out 
to you ("you do not have enough money to make that many") and 
asks for a new figure. This is checked in line 9000 and, if the figure 
entered is acceptable, the RETURN at the end of line 9000 is 
activated. If not, the program 'falls through' again to line 9010 and 
the question is asked again. (While we are at this end of the 
program, look at line 9999. This, in fact, is not part of the program as 
such, but was used when the program was being developed. It is 
used whenever the person developing a program decides to have a 
look at the program to date. It resets the BACKGROUND, PAPER 
and INK colours to normal, clears the screen and lists the program. 
The RETURN at the end means the listing can be called from within 
the program as a subroutine if desired. You may find that including 
a line like this at the end of a program may be of help when you are 
developing a complex program.) 


Line 307, on the return from the checking the money subroutine, 
determines (quite sensibly) that if the number of cups ordered is 
less than one, then the number sold must be zero and the program 
jumps to line 950, leaping over the selling part of the listing. 

If you prove by the number of cups you have ordered that you are 
serious about this business, then the program prints out (line 310) 
the number of glasses of lemonade you have ordered and then 
prints this number of full glasses with the loop in line 320. Line 330 
asks you to enter your selling programme for the day, with line 333 
rejecting prices which are greater than 99 or less than one. After a 
short BEEP (line 335), the selling price is printed and you are asked 
(line 350) to "Press any key to start selling". There is a BEEP, and 
the program waits (using the PAUSE 0) until you touch another key. 
This touch is acknowledged with another BEEP (at the end of that 
line) and then line 360 clears the screen, turns the brightness on 
and wipes out the contents of the screen with the i loop. 

Now comes the most visually interesting section. This long and 
complicated-looking routine, from lines 370 to 690, creates the first 
picture of part of Joe and his stand, complete with shelves for the 
glasses of lemonade. The next section, using the variable count 
(which is set equal to the variable cups in line 695) prints out the full 
glasses of lemonade. The variable count is decremented by one in 
715 and checked until this equals zero, when the computer knows 
all the cups have been printed. Once this is done and line 
700 has determined that all the cups have been placed on display to 
attract eager customers, the lines from 730 to 830 complete the 
drawing of the lemonade stand. 

Line 840 activates the function defined in line 80, to work out 
how well your day's transactions have gone. The loops from line 
860 replace the full glasses with empty ones on the shelves. If all 
the glasses have been sold, the "SOLD OUT" sign is displayed 
(line 900). After a pause for a couple of seconds at the start of line 
910, the shutter rolls down on the lemonade stand. Another pause 
at the beginning of line 940 and then the computer obligingly prints 
up a sales report for the day. "You sold . . . cups. You took £ . . ." 
and so on. 

The all-important profit (variable name prof) is calculated in line 
1000. Lines 1010 to 1030 use the SGN function to determine 
whether the day was a success or a disaster in terms of profit. 
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(SGN, sign, returns-1 if the number is negative,+1 if it is positive, 
and 0 if the number is zero.) 

Inflation strikes alarmingly in line 1050, increasing your rental by 
up to lOp, 10% of the time. In line 1060 the random number 
generator ensures that around 10% of the time, again, the raw 
material cost (variable name lemonade) will be increased by one. 
Line 1065 waits for you to press a key to continue. If line 1067 
discovers you have no money left (that is, that cash is less than 
one) then the program goes to 1500 to terminate gracefully. If 
you're still solvent, you get another crack at the fickle market of 
high finance beverages, with a return to line 200 to face another 
day of gruelling decision-making. 

The mournful message "CLOSED. You are now bankrupt and 
your stand has been sold to pay for losses" appears (lines 1500 and 
1510) and then line 1520 continually calls itself, effectively 
terminating the program without putting report code on the 
screen. You'll need BREAK to get out of this line. 

You are the owner of a drinks 
stand selling lemonade.Each day 
you will foe told the forecasted 
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Today's Report 
Heather Hi Id 

Each cup costs you 2p per cup 
Ren t: 50p 

You have £2© available 
Cups : 



Lemonade Stand 
Sales Report 
You sold 2S cups 
You took. £i 

you made 20 cups which 
cost you £e.4. 

Rent cost you 50p 

You have profited by £0.1 


Lemonade Stand Srsphics 
T ... Graphic F ■ 

Y ... Graphi c •'e " 
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12 POKE 23600,123 

15 DRTfl "e",0,SXN 10000020,BIN 

10000010,BIN ©1000100,BIN ©0101 
©00,SIN ©0010000,BIN 00010000,BI 
N 01111100 

20 DATA " f ” ,0,BXN 10000010, BIN 

11111110,BIN 01111100,BIN 00121 
00©,BIN 00010000,BIN 00010000,BI 
N 01211100 

25 DATA "Stormy",10,3©,"Wet",2 
5, 40, "Over cas t , 35,5S, "Mi id" , 4.5 , 
70,“Uarra",65,12©,"Hot",100,1S0,’ 
He a twawe",200,300 

4.5 INK 0: BRIGHT ©: CLS 

5© FOR J =2 TO 2; REPO a$. FOR 
i =0 TO 7 

60 READ 3: POKE USR 3$+i,3. HE 
XT i: NEXT J 

70 BEEP -5,© 

80 DEE FN p fp ,q.> =q.«* fpy200J -20© 

100 PRINT PAPER 6; " Less 

onade Stand Vow ar 

e the owner of a drints" 

110 PRINT "s tand set liny i tsooe 
de.Eacb day"'"you wilt be told t 
he forecasted" 

12© PRINT "weather and from tbs 

t you »iU.decide how many gta 

sses to" 

13© PRINT "salte.You will also fo. 
e told how"'"much each cup made 
costs you and" 

14.0 PRINT "fro® that you wilt d 

ecide the.selling Price-Rent o 

f the site" 

15© PRINT "costs S0p a day hut 

will become.more expensive wit 

h inflation" 

16© PRINT "as will the lemonade 
. " ' ' : PAUSE 900; PRINT INK 2;" 

Good LUCK i" 

170 print FLASH 2; ""Press any * 
ey to begin": PAUSE 0.- CLS 

160 LET cash=2000: LET weather= 
4.: LET Lemonade =2: LET rent =50 

200 LET weather=weather+INT fRN 
D*3-l> 

210 IF weather=0 THEN LET weath 
e r =1 

22© IF weather=S THEN LET weath 
er= 7 

230 PRINT PAPER 6;" 
onade stand 

24.8 PRINT INK 7; PAPER 1;'" 

Today's Report 


Less 
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25© RESTORE 25: FOR i=1 TO weat 
her; READ W$,fro®,to: NEXT i 
260 PRINT "Weather "; INK 2; 

27© PRINT '"Each cup costs you 
INK 1;Lemonade;"p per cup" 

2©0 PRINT "'Rent. INK 2;rent 

; "p" 

22© PRINT '"You have *•; INK 2;" 
£”; cash .-'I©©, INK 0; " available" 
30© BEEP -5,18: INPUT INK 2;”HO 
w many cups do you want to " "»a 
ke "; FLASH 2;"?";cups 
302 IF cups<© THEN GO TO 300 
3©5 GO SUB 300©: BEEP -5,5 
307 IF cups ■? 2 THEN LET sotd=0: 
LET price=l: LET CUPS=8: GO TO 9 
4.5 

318 INK 6: PAPER 0 : PRINT ' "Cl»p 

S : " ; 

320 FOR i =1 TO CUPS: PRINT 
. NEXT i: PAPER 7: PRINT 
333 BEEP -5,20: INPUT INK 2;"Uh 
at's your selling price for "■'■** to 
day FL.RSH 2;"?"; price 

333 IF price) 99 OR price-ii THEN* 
GO TO 330 
335 BEEP -1,5 

34-0 INK ©: PAPER 7: PRINT "Lem 
onade sold at ";price;"p per cup 

350 PRINT FLASH 1; INK 2;"'PreS 
s any Key to start selling": SEE 
P .1,18: PAUSE 0; BEEP -5,5 
360 CLS : BRIGHT 1: FOR i=26 TO 
21; PRINT RT i " 

”: NEXT i 

37© FOR i =© TO 4-S STEP 26- 
380 PLOT 3,i: DRAW 255,8 
390 NEXT i 

4.0© FOR i =0 TO 200 STEP 4-0 
4.10 PLOT i , 0: DRAW 55,4-8 
4.2© NEXT i 

4.3© PRINT PAPER S;AT 8,8; "JOE 5 
Drink stand"; PAPER 6;AT 9,6;" 

4.4.© FOR i =92 TO 98 

4.5© PLOT INK 7;72,i: DRAW INK 7 
:120,8,-PI/12 
46© NEXT i 

470 FOR i=2 TO 6: PRINT PAPER 6 
;RT 9fi,8;" ";TAB 24, PAPER 6;" 

488 NEXT i 










154 Adventure/Simulations 


4-9© FOR i =1 TO 4.: PRINT PSPEff 6 
RT 15 + i ( 8; M 
NEXT i 

4-95 BRIGHT © 

4-95 INK 6 

500 FOR i=113 TO 115 

510 PLOT 64,i: DRRU 136,0 

520 NEXT i 

530 FOR i =54- TO 199 

54-0 PLOT i ,116: DRAW 40,31 

55© NEXT i 

56© FOR i =115 TO 34- STEP -1 
57© PLOT BRIGHT 3,2SS,i: DRAW B 
RIGHT 0; 4-0,31 
SB© NEXT i 
590 FOR i=16 TO 23 

6©0 PLOT BRIGHT 0,2®0,i; DRAW 8 
RIGHT 0,4-0,4-0 
610 NEXT i 
615 INVERSE 1 

620 PLOT PAPER S;S4,116.- DRAW P 
RPER 0; 134- ,0 

630 PLOT PRPER ©; 64-, 112: DRRU P 
RPER ©; 134-, 0 
64.© INK ©: INVERSE © 

650 PLOT 63,16. 5>RRU 
660 PLOT 199,16: DRRU 0,96: ORA 
U INUERSE l; INK 6; PAPER 0,0,4- 
670 PLOT 64-, 15: DRAW 134-,© 

660 INK 2: PLOT 72,79: DRAW 72, 

© 

630 PLOT 72,63: DRAW 72,© 

695 LET countaCUps: GO SUB 7©©. 
GO TO 73© 

70© IF count=© THEN RETURN 
7©5 FOR i=11 TO 15 STEP 2: FOR 
j=l TO 3 

71© BRIGHT S: PRINT AT i,3+J; "Y 
”: BEEP .1,20 

715 LET count=count-1: IF count 
=0 THEN RETURN 
720 NEXT J: NEXT i: RETURN 
730 PLOT 160,60: DRAW 1S,®,-PI* 

3X2 

74-0 PLOT 14-0,4-3 : DRAW © , 27 : DRA 

U 12,5,-PI/S 

750 PLOT 187,48: DRAW 0,27: DRA 

U —12,5,PI/8 

760 PLOT 156,4-3: DRAW ©, 20 

770 PLOT 179,48: DRAW 0,20 

7S0 PLOT 168,48: DRAW 0,16: DRA 

W S,S: DRAW 0,3: DRAW -3,-13 
790 DRAU -3,3: DRAW ©,3: DRAW 3 
, -16 

80© PLOT 162,33: DRAW I©,©,PX..'2 
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810 CIRCLE 164- ,92,2: CIRCLE 171 
,92,2 

830 PRINT AT 17,9; INK 0; PAPER 
6;"LEMONADE ";pfice;"p" 

84.0 LET soldsdNT (RNDj Cto — f roa 
) + f r ©») + V t o - f r o» 1 1 »S«xFN p f lemon 
ade ,pric e J 

84.5 LET SOt d=INT SOtd: IF SOid> 
CURS THEN LET SOld=CUpS 
350 LET settC=SOtd 
86© FOR i=11 TO 15 STEP 2 FOR 
j =9 TO 17 

870 PRINT AT i,J i"Y ": BEEP .1,1 

0 

880 LET settc=settc-1: IF sellc 
=0 THEN GO TO 90© 

890 NEXT J: NEXT i : 60 SUB 70©: 

GO TO 86© 

90© IF SOld =CUps THEN PRINT INK 
0; PAPER 4-; AT 17,9;“ SOLD OUT 

910 PAUSE I©©: FOR i =103 TO 4-3 
STEP -1 

920 BEEP .02,1-4-3: PLOT 72, i: 0 
RAW 120,0 
930 NEXT i 

34L0 PAUSE 2©0: BEEP .5,5 
95© C-LS : PAPER 7: INK 0: PRINT 
PAPER 6;" BRIGHT 1;"L 

emonade Stand"; bright ©;" 

960 PRINT INK 7; PAPER l; - " 

Sates Report 

970 PRINT '"YOU SOtd **; INK l;s 
old; *• cups** 

980 PRINT '"You too* INK I;" 

£*’; so ld#pri cex 1©© 

990 PRINT '"You made ";cups;" c 

ups which.cost you "; INK 1;"£ 

”;cups * lemonadexl©© 

995 PRINT '"Rent cost you ";ren 
t; "p" 

100© LET prof=sotd*price-cups+te 
monads-ren t 

101© IF SGN prof=-l THEN PRINT 
"You have made a "; INK 2;"toss" 
j INK ©; " of £";-pro f ,*1©0 
102© IF SGN prof =© THEN PRINT '" 
You have only broken even" 

1030 IF SGN pro f =1 THEN PRINT '" 

You have "; INK 4-; "pro fi ted"; IN 

K 0, " by £";pro fxl©0 

104.0 LET cash=cash+prof 

1050 IF RND > . 9 THEN LET rent=ren 

t+INT (RND *1©+1.1 








156 Adventure/Simulations 


106® IF RNO>.9 THEN LET tescmadc 
=le»onade+l 

1065 BEEP .5,18: PAUSE 0 BEEP - 

5,5 

1067 IF cash-:! THEN GO TO 1500 
107© CLS : GO TO 2S5C 
1500 CLS ; PRINT INK 1; FLASH 2; 
" CLOSED 

1510 PRINT '** YOU are now ban ft r 
upt and your stand has been told 
to pay for your tosses." 

1520 GO TO 1520 

8999 STOP 

9000 IF cups* teaonade •: =c ash THEN 
RETURN 

9010 INPUT INK l;"you do not hav 
e enough aoney to asfte that j»any 
»INK 2;"How many cups do you 
want to »ake "; FLASH 1;cops 
9020 GO TO 9000 
9990 STOP 

9999 INVERSE 0: PRPER 7: BRIGHT 
0: INK 0: BORDER 7: CLS : LIST : 
RETURN 
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SYNTAX 

This is an 'intellectual' game for people who like to play with words. 
The aim of the game is to arrange ten phrases so that they make 
perfect sense. On running the program the computer asks you to 
wait a few moments and in this time it randomly arranges its store 
of verbs, nouns and adjectives into ten sentences that definitely do 
not make sense. It is then up to you to arrange these sentences 
into proper English. 

You will see a cursor in the right-hand side of the screen with the 
number of the phrase it is pointing to. You may move the cursor up 
and down using the keys "5" and "8". By pressing any of the keys 
"1" to "5", you can highlight words in the particular phrase at 
which the cursor is pointing, that is, if you press "3" then the third 
word in the phrase will be highlighted. 

You have a store of ten sentences which are empty at the 
beginning of the game. To enter words into these 'empty' sen¬ 
tences you must highlight a word (as described in the preceding 
paragraph) and press ENTER. The computer will then print up all of 
your sentences with the new word added. The computer will auto¬ 
matically put your word into the right place in your sentence. On 
pressing ENTER the computer will ask you into which phrase you 
wish to put the word. If you want the word to be entered into 
phrase number 5 then naturally you enter the number 5. 

Eventually you will have a store of ten of your own sentences 
which you must jiggle about until the sentences are coherent. The 
computer will not tell you if you have the right combination of 
words so it is up to you to judge whether your sentences are 
correct. 

Line 20 selects a position within the list of numbers to be given 
by the random number generator and line 30 sends the computer 
to line 1000, where the arrays are DIMensioned and variables 
assigned. Lines 1040 and 1050 find empty elements of the aS 
array, going back to 1040 to select a new one if the first chosen is 
not empty. Line 1060 reads the next string from the DATA 
statements from line 9000. An element of the I array is set equal to 
the length of the word just read, and then this word (bS) is assigned 
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to an element of the aS array (line 1070). 

After xS is set equal to the string "aS" (note, not aS, but "aS"; 
the difference will be clear to you when you look at line 1100), line 
1110 directs attention to the subroutine starting at line 200. The 
screen is cleared (line 200) and the interwoven a and b loops print 
out the randomly jumbled phrases, as the sample run indicates. 

The RETURN at line 260 sends the Spectrum back to line 1160 
where variables u, p and n are initialized. These will be used in a 
moment to move the words around the screen. After the 
subroutine from line 100 has printed the cursor (the solid square at 
the end of line 150), the routine from 1195 accepts, and acts on, 
your wishes regarding moving stuff around. Line 1205 sets iS equal 
to the key you're pressing ("5" or "8") to move the cursor up or 
down the sentences. Line 1260 accepts your choice of phrase 
within the indicated sentence and after xS has been set equal to 
"sS" (again, not sS), line 1300 directs the program back to the 
subroutine from line 200. Lines 1340 and 1350 wait until you are 
not touching a key, before sending action back to 1100 where the 
sorting out process continues. 


s rem syntax 
2® RESTORE 
2® RONDOMIZE 
3® SO TO 200® 

2®S LET t =0 

2 2© LET v =U /2i-l 

22© PDJ? b=3f + 2 TO T) -2 

23® LET S=e + Ub,VJtl 

24-© NEXT b 

25® PR IMT RT U + fXi > 3.1 , in 40 ; 

OUE.R 2 ; S" 

15® RETURN 
300 CLS 

2S5 FOR a =1 TO 2 2 
207 PRINT ”R 
22© FOR fe =2 TO 5 

22® PRINT UflL$ tXS+"fb,a, TO l ( 

23S IF'b=3 THEN PRINT 

£4-0 NEXT b 

24-5 PRINT 

35© NEXT 3 

25© RET URN 

2©0® PRXNT ST 12,0; "P1ESSE UQIT 
R FEU MOMENTS,-," 

230S DIM 
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2©I® DIM f 5,22,2 ©.1 

1025 DIM ItS. 22.1 

2 ©2® FOR a=2 TO S 

1030 FOR b = 2 TO 2 2 

2©4-® LET C =INT (RNDMIJ fl 

205® IF O" ■■ THEN GO T 

O 204.® 

205 ® RERD 

2 055 LET i (3,0 =LEN b£ 

2070 LET 3 $ f 3 .C 1 =b$ 

2©50 NEXT b 
2090 NEXT 5 
2 200 LET x*="3*" 

222® GO SOB £0® 

225® LET U=© 

2270 LET p =30 
1130 LET r, =2 

2 290 PRINT FLASH 2 ; RT L» , p ; " < " ; ST 
RS n 

2193 GO SOB 20® 

2295 IF INKEY* <>"•* THEN GO TO 12 
95 

1200 IF INKEY$="" THEN GO TO 22© 
0 

2205 LET i$ =INKEY $ 

1220 PRINT RT U,p 
1215 GO SUB 100 
2220 BEEP .01..20 

1230 LET U=U+((i$ = “6"Jfaif20.i - li 
*="7"J * (U.10.1 .1 *3 

124-0 IF CODE i * > 4- 3 AND CODE j .* f5 
4- THEN LET n =URL i * 

2250 IF CODE i$Ol3 THEN BD TD J 
190 

1260 INPUT “to which phrase?" 'q 
1270 IF qrl OR q > 2 2 THEN GO TO 2 
290 

1230 LET S$ tn ,q.1 =3$ (P ,U.X2 ^-2 3 
1290 LET X*="S*” 

2300 GO SUB 200 

134-0 IF INKEY $ < >"" THEN GO TD 23 
4.0 

2350 IF INKEY*=”" THEM GO TO 235 
0 

2330 GO TO 120® 

2370 GO SUB 200 

9000 DfiTR “black” , “blond“blue “ 
.. "dumb” .. ” f u r i ous “ , “aad” .. "suddy ” , 
"pa{e”,'’pi3sti c ” , "sjs 
9005 REM 

9©1© data "birch”,“butcher","dog 
","fish"."pebble","robot","spec t 
ator","spidec","teacher”,"uabrel 
la","waitar" 

9025 REM 
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9320 DflTfi " ba f «15 ” , ‘•fci'esJss , " thop 
S" ."UdHS"/‘sits"/'spi ns " , “sways 
, -sBiBs” , "trundles", “wa J&a 
tches” 

9S£5 RErl 

-3030 drtr "a” . "across the", "at t 
he", "at the" ."her", "in a", "in tl, 
e”/ , on the"/'on ic a", “up t 

o the" 

3S35 flEH 

304-0 DflTfl "heach "," ca t la t ", “ 

game","#e 3 t”,"pari","po iitici an" 
,"pond","vase"/'»efa",“wind 


f» pate fish trundles 
at the web 
B mad pebble breads 
in a politician 
B Plastic birch watches 
her beach _ 

R SUddy U tft br £ l 13 ss« t ^S 

at the pars. 

R tall waiter sways 
on the g ame 
r blond teacher chops 
across the pond 
r blue butcher leasts 
a flat 

R snail robot sits 
onto a wind 
R faiacK dog bans 
up to the cat 
r dumb spider swims 
the vase 

R furious spectator spins 
in the seat 


THE WELL 

A most realistic and probable scenario is developed in this program 
in which you become the hapless prisoner of a wild and demented 
old man who has decided that—for your sins—you should be 
drowned in a well if you fail to demonstrate sufficient mathematical 
prowess. 

Here's how the program explains it: 

In this game you are the 
the prisoner of a maniac 
professor mho has put you 
in a bucket and is s-lowly 
lowering it into the water 
be low . 
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He wilt ass qi'es t i ons , 

When you get them wrony 
you will go Lower -yet 
them right and you will be 
hoisted upwards. 

And this is the scene when the interrogation is underway: 



The program is fairly straightforward, and allows for a 
considerable degree of elaboration. 

The routine from line 1000 draws the scene. After it first 
appears, you'll be asked how good you are at maths. If you enter a 
number less than 12, the computer will choose a level of difficulty 
at random. I suggest you start with 15 the first time you run the 
program. Line 710 sets tS equal to either the multiplication (*) or 
addition (+) sign, and the variable a is assigned in line 720 to a 
number between one and the number you entered as your skill 
level. If tS is a multiplication sign, b is assigned in line 735 to a 
number between 1 and 10. If tS is an addition, sign, b is chosen 
between zero and 100 times the number you entered as your 
difficulty level. 

Line 740 prints up the question on the screen, substituting a 
small "x" for the if it is a multiplication question (as "x" is 
usually used as the abbreviation for multiplication). The g loop, 
from 777 to 840 gives you the opportunity to enter the answer. You 
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may well wish to examine how this routine accepts IN KEYS 
characters and converts them into a number greater than one 
character long, so you can use a similar routine in future programs. 
The professor reacts to your answer (lines 850 to 985) and a new 
question is generated. 

You'll see by looking at the routine towards the end of the 
program which prints the scene, that the variable I is the vital one 
which determines how far down the well the bucket is drawn. If 
the bucket comes right to the top, the professor is yanked up on 
the rope for a most delightful finish (and incidentally, the finish 
denies the laws which normally govern the relationship between 
buckets, wells and ropes). If you are lowered to the water, the 
delightful finish is yours to experience. 

5 REM The Uell 
a© LET 1=4.0 
20 GO SUB 9000 
510 PRINT RT 6,6; "The Me 1 1 " 

52© PRINT , ,TAB B; ; "XO this 9 3® 

e you are the" 

530 print TAB 6;"the prisoner o 
f a maniac" 

54.0 print trb "professor who 
has put you” 

550 PRINT tab 6;"in a bucket an 
d iS £- lowly" 

560 PRINT TAB 6,; "tower any at an 
to the water" 

570 PRINT TAB 6;"belOW-" 

560 PRINT ,,TAB 6;"He Will ask 
questions." 

590 print TAB 6;"Mhen you get t 
hB» wrong" 

600 PRINT TAB 6;"you will go lo 
w er — get" 

610 PRINT tab 6;"them right and 
you will fae" 

620 print trb 6 ;"hoisted upward 
s - " 

S3© GO SUB 1005 

64-0 print RT 51,6; "Press any xe 
y to bedin." 

650 PAUSE 0 
66© GO SUB 100© 

670 PRINT RT 6,6;"The professor 
says " 

66© iMPLfT "'HOW good at you at 
Maths? tX3 ' " , d 
662 IP d i 12 THEN LET d =J.MT 
*73 +4- 

635 LET l=121—d 
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69© IF d<© OR d>10© THEN PRINT 
RT 6,6;"'Enter a number from 0-1 
00”; GO TO 660 
700 GO SUB 1©00 

71© LET t$=CHR$ (4-2+INT (RNI>*23 

3 

720 LET a =INT (RNI>*d.1 *1 
73© IF 1 $="*” THEN LET b=INT fR 
NO *103 +1 : GO TO 74-0 
735 LET b=INT f AND *rf *1 BB.f 
74.0 PRINT RT 6,6,’"Uhat is " J 
75© LET U$=t$ 

760 IF t $ = "*" THEN LET li$=”.V" 
765 LET CB=STRB URL f STPj£ a 
5TR$ b-3 

77© PRINT a; “ ";u$," ";h;" ?'" 

772 LET t t =© 

775 LET »$ = "•• 

777 FOR g =1 TO LEM C$ 

76© FDR t=1 TO 1*100 

7S-S- LET 5 S=J.WK-EVS 

790 IF i $="" THEN NEXT t 

800 IF CODE iSiiB DR CODE iS > 57 

THEM GO TO 910 

61© LET 

615 LET t t = tI * t 

62© IF W$(g) OCjfgJ THEN GO TO 
91© 

625 PRINT RT 6,6;WS: BEEP .1,20 
83© IF INKEY $ < > ** ” THEN GO TO S3 
3 

84-0 NEXT g 

35© print RT 1B,6: "Brat! You g 

ot it riQh t ! " 

S6S FOR a =1 TO tt-'l© 

67© BEEP .01.2© 

630 NEXT 3 

69© LET 1 = 1 — (1*10 — tt /LEW rS3./I£) 

0 

90© GO TO 70© 

910 PRXNT RT 6,6;W$ 

915 FOR a = 1 TO 2© 

92© BEEP -l.S 
93© NEXT 3 

94-0- PRINT RT 12, B; "Heh ,heh * The 
right answer" 

95© PRINT RT 13,6, "is C$ 

952 FOR U =1 TO 3 
955 PAUSE 30 

96© PRINT RT 3 , l .'8*3; "ha J " 

965 PAUSE 33 

97© PRINT RT 3,i.-'-6*3;" 

975 NEXT U 
960 LET 1 =i *4- 
935 GO TO 70S 
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39© STOP 
100© C-L.S 
1005 RLDT 0,153 
1310 DRflU 0,-150 
1020 BRRUi 4 ©, 0 
1©3© DRfiU 0,153 

1032 Pi_OT 40,135: BR&kX 215,0 

1035 PLOT 1,4-0: DRflU 39.0 

104.0 CIRCLE 20,173,5 

135© PLOT 20,1.75 

1360 DRflU l,-43,-(l<651 

1365 PRINT RT 4, l.sB*2j OVER JLJ "* 

107© PLOT 15,170 
106© DRflU S,-l 
109© DR.RW -4,-P 
1100 DRflU 3,0 
111© DRflU -4,6 
1120 PLOT 11.162-1 
113© DRflU 2.-S 
1140 r-RRU 4,6 
115© DRflU 2,6 

116© IF 1=0 THEN BEEP 1,22: GO T 
O 2000 

1165 IF 1=153 THEN BEEP 1,22: GD 
TO 3000 

1170 IF t<20 THEN LET t =©. BEEP 
1,20: GD TO 1000 

1175 IF l>122 THEN LET i=153. EE 
EP 1,20: GO TO 1000 
1160 RETURN 

200© PRINT RT 4.2; OUER 1,; 

201© FOR 3=6 TO 16 
2020 PRINT RT 3-1.2;" " 

2030 PRINT RT 3,2,"*" 

2035 BEEP .05,3 

204© NEXT 3 

2050 FOR 3=17 TO 21^ 

2655 PRINT RT 3,2;"*" 

206© PRINT RT 3 -1 ,2 v : " " 

2070 BEEP .2,21-3 
2060 NEXT 3 

2090 PRINT RT 21,2, OVER 1, 

2100 PRINT RT 16,2; 

211© STOP 
3000 STOP 

300© DflfTfl 24,24,254,56,24,36,102 

,0 

9010 FOR 3=0 TO 7 
302© READ 6 
9030 POKE USR "a"+3,b 
9040 NEXT a 
3©50 RETURN 
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Programming hints 

IMPROVING YOUR PROGRAMS 

'Artists have always been among the first to explore new 

technologies . . .' ('David Thornburg, Computers and Society. 

(Compute! magazine, March 1982, p. 16) 

The advent of the personal computer has given many people an 
outlet for their creativity. Many have found that just having easy 
access to a computer has given them an entry into creative activity, 
tapping skills which might otherwise have remained dormant. 

Like all art forms, knowledge of technique can make it easier to 
express your creative programming desires. Having a fund of tricks 
and techniques on tap allows you to get on with inventing and 
developing the program you have imagined without being hindered 
by the fear that you may not be able to make the computer perform 
just as you desire. For example, knowing how to make objects 
move allows you to concentrate on other characteristics which 
elements within your program should display, rather than getting 
bogged down in working out the mechanics of creating 
movement. 

Examining the programs in this book and in magazines and other 
books, should teach you quite a bit about programming. As you 
enter the programs and read the notes I've written to accompany 
them, you should pick up a number of ideas which you can easily 
incorporate into your own programs. If you're still fairly new at the 
programming game you might want to start just by adapting the 
listings in the book, changing such things as the user-defined 
graphics, or the keys which an INKEYS routine reads, and then go 
ahead later to write completely original programs. 

Keep the 'human' side of your program in mind when developing 
it. In many cases, your programs will be run by people other than 
yourself and you should try and make it as easy and as enjoyable as 
possible for others to run your programs. For example, many 
programs (including some in this book) written for the Spectrum 
use the "5", "6", "7" and "8" keys to control movement, moving 
an object under player control in the direction indicated by the 
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arrows above those keys. But if you think about it for a moment, 
you'll realise that they are not the most sensible keys to use in all 
circumstances. They are crowded together at the top of the 
keyboard and are certainly not the easiest ones to use. It may be far 
more convenient, if a program just demands left and right 
movement to use the "Z" (for left) and the "M" (for right) keys. 
Other keys can be brought into play for up and down movement. 
You'll see this in use in programs in this book such as DEATH RACE 
2000 . 

It is worth questioning any program actions you make by habit— 
such as using the "5" to "8" keys—to see whether or not this 
habit helps produce a program which is as pleasant as possible to 
use. 

If you do use keys other than "5" to "8" for movement, choose 
those which seem 'natural' so the player can get on with enjoying 
the game, rather than waste mental energy trying to remember 
which key does what. Pick keys which are comfortable to use, with 
positions somehow related to their function within the program 
(such as the bottom left hand corner of the keyboard—"Z"—for 
moving left). For other controls within a program, such as firing 
your deadly, alien-zapping laser gun, it makes sense to either pick a 
key which is easy to get at, or one which has some link—such as 
"F" for fire, or 'R" to roll the dice—with the function the key 
triggers. You'll see this in REVENGE OF CASTLE DREAD where 
you enter "E" to move east, "FL" to flee, and "Q" to quit. Once 
you've read the instructions for a game like this, you're unlikely to 
forget which key performs which function. 

If it is possible to do so, you should include quite explicit prompts 
within a program, so the player knows exactly what to do in each 
situation. Although it is not necessary to provide full instructions 
within a program (and often they simply occupy a lot of typing time 
and memory), your INPUT prompts should be clear. The use of 
specific guides for the user, within quote marks in an INPUT line on 
the Spectrum, makes it simple to give the program operator 
explicit prompts or guidelines. As you probably know, you can use 
all the standard PRINT statement controls, such as FLASH, 
BRIGHT and INVERSE within INPUT prompts, highlighting such 
prompts and adding to the general interest created by the program. 

Once you have a program up and running, you should spend 
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some time making the display as attractive as possible. Even if the 
output of the program consists just of PRINT statements, there is 
no reason why they cannot be arranged on the screen in an 
interesting, clear and attractive way. Use of colour within PRINT 
statements or perhaps in BORDER changes from time to time, can 
enhance the message and improve its legibility. Random BORDER 
changes, for example, are used in the chess program within this 
book to acknowledge a capture by a human piece. 

Sound can also be used to improve programs. It is surprising 
how much a few BEEPs can add to a program's output, not only for 
obvious things like the sound of an alien disintegrating, or for balls 
bouncing, but also for applications such as those with NEOPHYTE 
CHESS. In that program, the computer BEEPs as it runs through a 
particular part of the program concerned with looking for a piece to 
move. This ensures that, even if the computer appears to be taking 
a long time to make a decision, the player is reassured that the 
program hasn't lost itself in an endless loop. 

Any use of colour and sound can enhance the impact of a 
program. While there are some who would argue against the use 
of colour for colour's sake, it seems foolish when using a computer 
such as the Spectrum—which provides colour as one of the 
features—not to take advantage of these features whenever you 
can. The same argument applies to user-defined graphics. You 
should use them if you feel they will enhance the program. In our 
chess program, we did not create our own graphics because the 
emphasis there was on quality of play, rather than 'prettiness'. 
However, there is no excuse (except, perhaps, laziness) for having 
inverse asterisks, for example, to represent aliens rather than the 
'real thing' created by a user-defined graphic or two. 

While not overlooking the value of adding colours to INK and 
PAPER, nor that of highlighting words wirh INVERSE, FLASH and 
BRIGHT, there are more subtle things you can do to enhance a 
message, such as including certain words in capital letters when 
the rest of the message is in small letters. You can see this in use in 
the rewrite of the room descriptions in REVENGE OF CASTLE 
DREAD where I've included the changed words in capital letters, 
so you'd know which ones to alter to get the variation on the game. 
Although the words were put in capitals in this to simplify the 
conversion task rather than to highlight them, they do illustrate 
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how effective something as simple as this can be. The position of 
print output on the screen can also be important, and PRINT AT 
makes it easy to place your material wherever you want it. 

INCREASING PROGRAM SPEED 

In some programs, quality of play is more important than the speed 
of play (such as in PIRANDELLO and CHECKERS in this book). But 
even in programs like these, you should still aim to produce a 
program which runs as quickly as possible. Speed is generally the 
over-riding priority in moving graphics games. Jerky, slow-moving 
graphics lead to an unsatisfying program. 

In the introductions to several programs in this book. I've drawn 
attention to aspects of that program which help to maximise its 
running speed. I thought it would be of value to have the hints 
brought together and some extra ones added, in this chapter. 

When a program comes to a GO TO or a GO SUB command, it 
must search right through the program, from the first line number, 
line by line, until it comes to the line number designated in the GO 
TO or GO SUB. Therefore, programs which place often-used 
subroutines near the beginning of the listing tend to run fractionally 
more quickly than they would if the routines were towards the end 
of the listing. If there is a master loop, which is accessed time and 
again in a program, it is worth trying to organise the program so this 
loop is as close as possible to the start of the listing. You'll see 
many programs organised in this way in this book. 

In addition to using this arrangement, parts of the program which 
are only used once—such as instructions to the player and the 
initialization of variables and user-defined graphics—should be 
placed at the very end of the program, to ensure that they do not 
have to be 'jumped over', as it were, every time the computer 
starts searching through the listing for a GO TO or GO SUB 
destination. 

You'll find that, generally speaking, the lower the number of lines 
in your program, the faster the program will run. Statements which 
are 'chained together' on the same line are executed fractionally 
faster than they would be if they were in consecutive, single¬ 
statement lines. This is especially noticeable with moving graphics 
programs, so you should try to chain PRINT AT statements with 
semicolons whenever you can. Generally, the decrease in speed 
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as a result of having many separate lines as well as copious REM 
statements, is neither critical nor particularly noticeable. However, 
when speed must be optimized, it may be worth making two 
versions of a program. The first version, studded with REMs and 
using single-statement lines for maximum clarity during the 
development and debugging stages, can be stripped down to the 
second version. This second program will have no REMs left in it, 
and will make as much use of statement-packing as possible. 

GO TO statements can often be completely removed by careful 
programming. Examine any GO TO which is not qualified by an IF/ 
THEN to see if you can remove it. Some programming purists claim 
an unqualified GO TO is always bad, but this is no reason why you 
should totally eschew the often useful command. However, you 
should look critically at programs which use GO TO, especially a 
non-conditional GO TO, just to see if there is any way of getting 
around it. GO SUBs can often be removed completely as well. If 
there is a fairly short subroutine which is called only two or three 
times in a program, you may find it better to include the subroutine 
in full each time it is needed, rather than consume time in GO 
SUBbing. 

Once you have a program up and running, it is worth dumping a 
listing of it to the printer to examine it quite critically in terms of 
general 'blocks' of more or less self-contained code. You'll find you 
can look at many programs in this way, even if they were not 
programmed with a 'modular' structure in mind. Once you've 
scanned your program in this way, you may well discover the 
blocks are not in the best order to ensure the program runs logically 
from point to point as quickly as possible. You can then try to re¬ 
arrange the blocks of code into an order that is 'cleaner' and, 
perhaps, more logical. 

Do not use brackets unless they are absolutely necessary, as 
they take up both memory and processing time. You'll find that the 
Spectrum generally demands fewer brackets than do most other 
BASICS, allowing for example PRINT CHRS 134 rather than PRINT 
CHRS (134). 

You may have trouble fitting programs originally written for a 16K 
ZX81 into a 16K Spectrum. The graphics consume a significant 
portion of the memory on a 16K Spectrum. When converting, leave 
out all the REM statements, and condense PRINT statements as 


- 







much as you can. Leave the instructions out entirely. Examine the 
entire listing to see if it can be shortened in any other way, such as 
replacing frequently-used words or phrases with strings or by 
adding a subroutine to cater for blocks of code which are accessed 
more than once in the program. This will slow it down a bit, but this 
is a small price to pay to squeeze the program in. As you probably 
know, the Spectrum runs very much more quickly than does the 
ZX81, so this sacrifice of speed is unlikely to be a problem. If the 
program ran at a satisfactory speed on a ZX81, it can't help but be 
better on a Spectrum. 
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THE GOTHIC GENERATOR 

This program is not a game, but it is a very useful programming aid 
and can be great fun to run. The program allows you to define one, 
or all of the characters printed by the Spectrum, as characters of 
your choice. It is just over thirty lines long but enables you to 
produce quite extraordinary effects. 

Here, for example, is the program listing in Gothic characters, 
created by redefining the whole character set: 


»ait 2 rtm m 

20 _ lit: f = 15-6 1 6 
30 Lfr a=31401 
40 fsr f=o 1023 

I pi yr.J-ttAi (?+f) 

30 £*>=31145 

30 iff: 15=234 04 
3>o va&f li . fj-254 *-i»t (p/2563 

lOO T'ifU# 15-j-l.iSf: 

200 *> ittttr to rtfr 

fl3ra»*? ";a$ 

230 ift 1S-323 

jjf** CS: if € = = '• -$£0? " th 
it* asj t $<>"" thi 

S fcfff .5,. 20: 30 tO 2 40 

IIS 

II? 

29? a* 


As you can see, it is very effective. Most of the time you will not 
need to redefine the whole alphabet and may want to change only 
a few characters. You run the program and wait a few moments 
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before following the clear prompt "Which letter to reprogram?". 
Having answered that, you enter (line 240) a single BIN number for 
cS, the computer processes that, and returns for your next BIN 
number. When you've finished redefining, simply press the STOP 
key to terminate the process. You'll now find, assuming you had 
reprogrammed the 'a', that each time you press 'a' you'll get your 
own character. Here is the program in non-Gothic: 

5 GO TO 200 
0.0 CLEfjR 31400 

15 print “Please wait a few j»o 
sen ts . . „ " 

20 LET P =15515 
30 LET 3=314.01 
4-0 FOR f =3 TO 1023 
50 POKE a * f .. PEEK f p -f- f ? 

50 NEXT f 
70 LET V =3114-5 
39 LET n=23506 

9© POKE n , V -256 SINT t V ,'2561 
10© POKE R+l,INT tV/255J 

200 input ”u.hich letter to repr 

ogf3»? ”;a$ 

210 LET 3=3I4eirBS5COD£ a *-323 
22© FOR f =S TO 7 
230 LET b$="BIN " 

240 INPUT C $: IF C $ = " STOP “ TH 
EH STOP 

24-5 IF LEN C$<>6 AND C$0”" THE 
N BEEP .5.20: GO TO 24-0 
250 LET fc=v«L ib$+C$J 
255 POKE a + f .b 
260 PRINT f S-l; TAB 3; C $ . fc 
27S NEXT f 
2S0 PRIriT 
230 PRINT a? 

300 PRINT 
310 PRINT 
320 PRINT 
330 GO TO 200 

It is simpler to reprogram whole alphabets using decimal input 
rather than binary input. If you really need a Gothic alphabet, enter 
the following tiny program: 

1000 FOR a =314.00 TO 32190 
2SGS INPUT (a 3 ; ** 7" p 
30SS POKE a .. P 
4.000 NEXT a 

When you run it, you'll be asked for a vast number of inputs. Just 
enter the number shown in the next list, after the prompt number 
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shown. Once you've done this, your enter alphabet will have been 
rendered Gothic. This will be ideal for printing cheap greeting cards 
on your Spectrum next year. 


31400 
Si 40” 
31404 
31406 
3140* 
314 4 0 
31412. 
34414 
31416 
3141 S 
31420 
31422 
31424 
3 4 426 
3 4 42.S 
3 4 430 
31432 
31434 
3 4 436 
3143s 
31440 
34442 
34442 
3 i 444 
31446 
3144s 
31450 
31452 
31454 
3 4 456 
3 4 45s 
3 4 460 
3 4 462 
3146 4 
3146 6 
3146 3 
31470 
34472 
31474 
3 i 476 
34478 
34 4 SO 
3 4 482 
314 84 

3 i 4 S 6 
314 S S 
31490 

34492 
31 4 94 


O 

O 

16 

16 


36 

36 

126 


32 

32 

S 

3£ 

O 


31401 
31403 
31405 
31407 
31409 
31411 
31413 
31415 
3141 7 
3141 9 
31421 
31423 
31425 
31427 
31429 
31431 
31433 
31435 
31437 
31439 
31441 
31443 
31443 
31445 
31447 
31449 
31451 
31453 
31455 
31457 
34 459 
31461 
31463 
3 i 46 5 
31467 
3146 9 
31473 
31473 
31475 
31477 
31479 
31481 
314 S3 
314 35 

314S7 
3 i 4 S 9 
31491 
31493 
31495 


126 

36 

36 


40 

42 

58 
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31 312 

31 316 
31313 
31 320 

31 322 
31321: 
31326 
31 323 
31330 
31332 
31 334 
31 336 
31 333 
31340 
31 342 
31344 
31 346 
S-S4S 
3SSSO 
31352 
31354 
31 356 
31 353 
31 360 
31 362 

31362 
31 364 
31 366 

31363 
3 i 370 
31372 
31 374 
31 376 
31 373 
31 330 
31332 
31 334 
31 336 
31 SSS 
31320 
313 22 
31 394 
31396 
31393 
31 900 

31902 
31 904 
31904 
31906 

31903 
31 910 
31912 
31914 


43 

43 

43 


60 

40 

52 


34 

50 

54 


20 

34 
60 
24 
6 3 
33 

35 
64 
64 
12 
63 


56 

24 

104 


31313 

31315 

31317 

31319 

31321 

313 
313 
313 
31 3 
313 
313 
313 
313 
313 
313 
31 3 
313 


313 
313 
313 
31 3 
313 
313 
31 3 
313 
31 3 
313 
313 
313 
31 3 
313 
313 
31 3 
313 
31 3 
313 
313 
31 £ 
313 
31 3 23 
313 95 
31397 
31 399 
51901 
31903 
31 905 
31905 
31 907 
31 90 9 
31 911 
31915 
31 91 S 


40 

124 

32 

56 


255 

23 


w in 1 -. <7' * m in n *«- w in i> #|« m w ^ * t<j n m is a -* w in n ^ « w in ts <■< 
pi pi el pi m m m m w 4 'C 4 in in m in m *o o is is n m toto to to to is 
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32126 

32i£S 

32130 

32132 
32134 
32136 

32133 
32140 
32142 

32144 
32146 

32145 
32150 
32152 

32154 
3215* 
3215* 

32155 
321*0 
32162 
32164 
3216 6 
3216 s 
321 70 
32172 

32174 
3217* 

32175 
321 SO 
321 52 
32154 
321 56 
321 5 S 
32120 
32122 

32134 
3212* 
321 95 


16 1 
153 
6 0 
O 


32127 
32129 
32131 
32133 
32135 
32137 
32139 
32141 
32143 
32145 
32147 
32149 
32151 
32153 
32155 
32157 
32 4 57 
32159 
3216 1 
32163 
32165 
32167 

3216 9 

3217 i 
32173 
52175 
32177 
3217 9 
32151 
32153 
32155 
32157 
5215 9 
32191 
52195 
32195 
32197 
32 1 9 9 


MACHINE CODE RENUMBER 

Here is a machine code program which will renumber a BASIC 
program, altering where needed the numbers following GO TO, 
GO SUB, RESTORE, LINE and RUN. It is written to the address 
5CD0, that is, the first program line. The addresses may be altered 
(the appropriate addresses are underlined) but the process is not 
recommended. 

Here's how it works: 

1. The program looks for RUN, GO TO, GO SUB and RESTORE 
bytes throughout the program, checking that they do not belong to 
a REM statement, PRINT statement, line number or length of line. 
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If the end of the program is reached, it is renumbered. If a GO TO or 
GO SUB or similar byte has been found, the program checks to see 
if CHRS 14 occurs in the next five characters. If not, the program 
loops back to the start. The program now block loads the number 
into variable a. 

2. Next, the program POKEs the number back into the second part 
of the program - now in hexadecimal. It finds the position of the 
line numbers after such things as GO TO and GO SUB, and if 
greater than the last program line, loops back to step 1. It converts 
the position of the line number after the GOTO or GO SUB into the 
new destination, converting this number into a string in aS. Now it 
block loads the new destination to the five bytes after CHRS 14. 

3. The program now loads the string into position immediately 
after GO TO, GO SUB and the like. It deletes or inserts spaces as 
required to accommodate the string, while at the same time 
altering the system variables and the length of the program line. It 
then loops back to 1. 

To enter the program, type in the BASIC hex-loader, and a REM 
statement containing exactly 372 characters as line number 1. This 
occupies eleven lines plus 20 characters. Note that there are no 
spaces within bS in line 2. 

You run the hex-loader, entering the pairs of hex code given as 
listing two. The hex loader will accept any number of bytes at a 
time and the code must be entered without spaces between the 
pairs. The code uses lower case letters and allows you to re-enter 
any numbers it does not recognize. At the end of the DATA it will 
stop with report code 9/18:1/ 

Check the following: 

PEEK 23765 should return 33 
PEEK 23891 should return 11 
PEEK 23993 should return 33 
PEEK 24072 should return 42 

Now delete all of the original program, except for line 1. Enter 
listing three. Note that line 5 contains the step size, and first 
number. In this program, they have been set to 10, but you may 
alter them as you wish. However, they must both be four 
characters long, and hence have leading zeroes. When attempting 
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to alter these values, you must POKE 23901 with the first number 
minus the STEP SIZE, and POKE 23909 with the step size. Just 
enter RUN to renumber a program. It is suggested that you keep 
the RENUMBER on a separate tape, and MERGE it with your 
onboard program when you need to renumber. 

Listing one, the hex-loader: 

£ > LSET b$ = "3i23i5878Sa bids f " 

3 FOR 3=23760 TO 24-131 

4- INPUT 3 $ 

5 PRINT TO 2);" 

S LET C$=aStlJ 

7 30 SUB 19 

3 XF b=16 THEN GO TO 4- 
3 LET C=b*I6 
10. LET C$=3$(2.1 

11 GO SUB IS 

12 XF fa =16 THEN GO TO 4- 

13 POKE a,c+b 

14. LET 3$=a$ (3 TO i 

IS L.ET 3=3 tf'iOT NOT LEN 3$ 

IS XF LEN THEN GO TO S 

IT NEXT 3 
IS 3TOP 

13 FOR fa=0 TO 15 

SS XF (fc+1)<>ci THEN NEXT b 
21 RETURN 

Listing two, the hex code: 


4-3 

23 

ID 

ED 

FE 

ED 

35 

5C 

34- 

El 

00 


23 

5F 

CS 

FT 

52 

21 

h7 

13 

10 

29 


61 

23 

16 

FE 

0-9 

EB 

OF 

23 

05 

E9 

65 


63 

23 

60 

E5 

EB 

CS 

5C- 

0T 

35 

CS 

50 


65 

22 

FE 

C3 

22 

El 

23 

•34- 

20 

D5 

27 


21 

E0 

EC 

rE 

4-S 

7F 

E5 

20 

02 

CD 

ED 


19 
50 
CS 
Oh 
SC 
E5 
BE 
02 

20 
0C 
52 


5F 

CS 

FE 

03 

37 

06 

26 

20 

35 

5E 

4-4. 
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4-D 62 6B 23 

50 00 Di 09 

€-5 50 E5 23 

4-D IS Di EB 

50 4-0 CD ac 

Di Cl CS ©B 

CD F3 50 30 

29 DO 50 ES 

4-4- 4-D El CD 

23 71 23 5E 

IS E9 23 II 

20 04- 3£ 0D 

20 05 4-7 ED 

0D 23 05 FE 

19 13 50 CD 

22 £0 50 3E 

ED 8i 20 27 

55 4-S 50 13 

CS 21 DI SD 

50 ©1 00 00 

23 E5 21 09 

El DS 5E 23 

F3 50- 3@ ES 

s£H 4-E3 \5L- 2-3 

©1 @5 00 ED 

50 23 4E 23 

©E CG 34- 5D 

20 F4- 19 FE 


ED 50 CD FC- 

05 D5 ES 29 
97 ED 52 44 

ED SS CD FC 

5E 4-© El 23 

29 E0 SC- 7E 

ID 01 00 00 

21 09 0 © 03 

F3 5C DS 70 
23 56 23 IS 

04 00 FE E9 

13 ©4 FE 22 

B1 13 ©9 FE 

0E 20 04 13 

E4 50 20 B7 

0E 01 05 S0 

22 E2 5C ED 

0E 05 ED 50 
36 DS 29 D6 
03 56 23 5E 

00 37 ED 52 

56 23 IS CD 

01 00 00 0-9 

ED SB £2 50 

B0 ED SB E© 
46 23 19 FE 

ED 90 73 Si 

0E C3 CD 1C_ 
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5D J.8 

GS £h 
E5 0=5 
■50 4-3 

51 78 

09 Ci 
a® ©a 
©a S3 


F7 C9 at 

£0 50 3E 

23 23 4-5 

C-B 50 CD 

B1 2S 57 

02 C5 27 

23 34- 13 

35 0*3 


Ol 50 36 

3D ED B-3 

23 4-5 05 

BE 50 Ol 

01 04- 00 

23 ©7 34- 

©5 35 20 


Listing three, the renumber program: 

a >S_ET a =U5R 23765 
3 IF USR 23691 THEN STOP 
4- POKE 24-011 , a —XNT (a/£56) 
5: POKE 24-012, I NT (as256t: LE 
=USR 23993: IF NOT a THEN GO 


'h hi HH«|e 
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PROGRAM AUTHORS 

Thanks to the following programmers who have helped greatly 

with the production of a book of worthwhile, interesting games: 
LEVEL FIVE Paul Toland 
CIRCUS Paul Toland 
JOGGER Tim Hartnell 
DISABLE THAT MINE Paul Toland 
COPTER Tim Rogers 
MAZURKA Paul Toland 
ALPHABATTLE Tim Rogers 
SMASHOUT Ant Hurrion (modified by Tim Hartnell) 

3-D DRIVE Tim Rogers 
NORWAY PANIC Tim Rogers 
DEATHRACE 2000 Tim Hartnell and Tim Rogers 
CLONE CRAZY Mike O'Neill 

PIRANDELLO Graham Charlton (modified by Tim Hartnell) 

CHECKERS Tim Hartnell 

TIC-TAC-TOE Tim Hartnell 

NEOPHYTE CHESS Tim Hartnell 

REVENGE OF CASTLE DREAD Tim Hartnell 

JOE CAPITALIST, JNR. (Lemonade Stand) Paul Holmes 

SYNTAX Tim Rogers 

THE WELL Tim Rogers 

THE GOTHIC GENERATOR Tim Rogers 

MACHINE CODE RENUMBER R. Wilkinson 
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BIBLIOGRAPHY 

There are many books which can help you gain ideas for writing 
games on the Spectrum. This list includes some of the best ones 
which I've discovered. 

Computer Games Books: 

40 Computer Games from kilobaud microcomputing* Gibbs E.A. and Perry, J. (eds) 
(Wayne Green Inc., USA 1980) 

The Softside* Sampler Witham J. (ed.) (Hayden Book Co.. Inc., USA 1982) 

BASIC Computer Games Ahl D. (ed.) (Workman Publishing Co., USA 1980) 

More BASIC Computer Games Ahl D. (ed.) (Workman Publishing Co., USA 1980) 

General games books, for program ideas: 

The Way To Play the Diagram Group (eds.) (Corgi, 1977) 

The Indoor Games Book Pennycook, A. (Faber & Faber Ltd., 1973) 

Games for Two Wasley, J. (Proteus Publishing Ltd., 1981) 

Everyman's Indoor Games Brandreth, G. (J.M. Dent & Sons Ltd., Everyman 
Paperback, 1982) 

Dice Games, New and Old Tredd. W.E. (The Oleander Press, Cambridge, 1981) 
Discovering Old Board Games Bell R.C., (Shire Publications Ltd., 1980) 
•RegisteredTrade Marks 

Readers wishing to learn more about programming the 
Spectrum may find material of interest in The ZX Spectrum 
Explored, also by Tim Hartnell and published by Sinclair Browne 
Ltd. 









